Дано натуральное число. определить: б) сколько - вопрос №4982499 от валериякотик19 06.10.2021 22:03

Question

Информатика: Дано натуральное число. определить: б) сколько раз в нем встречается цифра, равная последней; в) количество четных цифр в нем. составное условие и более одного неполного условного оператора не использовать; г) сумму его цифр, больших пяти; д) произведение его цифр, больших семи; е) сколько раз в нем встречаются цифры 0 и 5 . в паскале, не используя массивы

валериякотик19 · Answer

Под а 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....