Дано натуральное число. определить: б) сколько раз в нем встречается цифра, равная последней; в) количество четных цифр в нем. составное условие и более одного неполного условного оператора не использовать; г) сумму его цифр, больших пяти; д) произведение его цифр, больших семи; е) сколько раз в нем встречаются цифры "0" и "5". в паскале, не используя массивы
Program p1;var a,b , b1,a1,k: integer;begin read(a);k:=1;b:=a mod 10;a1:=a div 10;while a1<>0 do beginb1:=a1 mod 10; if b1=b then k:=k+1;a1:=a1 div 10;end;write(k);end.