Дано натуральное число. Определить:

б) сколько раз в нем встречается цифра, равная последней;

в) количество четных цифр в нем. Составное условие и более одного неполного условного оператора не использовать;

г) сумму его цифр, больших пяти;

д) произведение его цифр, больших семи;

е) сколько раз в нем встречаются цифры "0" и "5".

В Паскале, не используя массивы

Question

Информатика

Алексана

4 декабря, 05:06

Дано натуральное число. Определить:

б) сколько раз в нем встречается цифра, равная последней;

в) количество четных цифр в нем. Составное условие и более одного неполного условного оператора не использовать;

г) сумму его цифр, больших пяти;

д) произведение его цифр, больших семи;

е) сколько раз в нем встречаются цифры "0" и "5".

В Паскале, не используя массивы

+2

Ответы (1)

Знаете ответ на вопрос?

Кируха · Answer 1

Под а

Program p1; var a, b, b1, a1, k: integer; begin read (a) ; k:=1; b:=a mod 10; a1:=a div 10; while a10 do beginb1:=a1 mod 10; if b1=b then k:=k+1; a1:=a1 div 10; end; write (k) ; end.