Дано x - целое, шестиразрядное число. Посчитать количество цифр в этом числе больше 5. Делать в паскале

Question

Информатика

Артур

30 августа, 06:55

Дано x - целое, шестиразрядное число. Посчитать количество цифр в этом числе больше 5. Делать в паскале

+1

Ответы (1)

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

Всеволодушка · Answer 1

Program ff;

var

x, counter:integer;

begin

write ('Введите число: ') ;

readln (x) ;

while x > 0 do

begin

if (x mod 10) > 5 then counter:=counter+1;

x : = x div 10;

end;

writeln ('Цифр больше 5: 'counter) ;

readln () ;

end.