Мелетий
4 год назад
Дано x - целое, шестиразрядное число. Посчитать количество цифр в этом числе больше 5. Делать в паскале
ОТВЕТЫ
May Brian
Oct 24, 2020
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.
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.
437
Смежные вопросы: