Адача: Найти количество цифр натурального числа, больших 5.

Формат ввода:

На вход подается натуральное, не превосходящее 30000.

Формат вывода:

Целое число.

Пример входных данных

650
Пример выходных данных

1
Пояснение:

Отсутствует.

program z1;

var a,k: integer;

begin

k:=0;

readln(a);

while a > 0 do

begin

if a mod 10 > 5 then k:=k+1;

a:=a div 10

end;

write (k);

end.

Объяснение:

Вводим число

Цикл с предусловием (пока число больше 0)

Если последняя цифра числа больше 5, то увеличиваем значение переменной k на 1

Отбрасываем последнюю цифру числа используя целочисленное деление и записываем получившее число в ту же переменную

Вывод k, после окончания цикла