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

Question

Информатика

Зинура

25 апреля, 14:24

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

+2

Ответы (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.