Составьте алгоритм для определения количества цифр в записи произвольного натурального числа Через оператор repeat
Answers & Comments
A1dar
Var n, cnt: integer; begin write('Введите число: '); read(n); repeat inc(cnt); n := n div 10; until n = 0; writeln('Количество цифр в числе: ', cnt); end.
Answers & Comments
n, cnt: integer;
begin
write('Введите число: ');
read(n);
repeat
inc(cnt);
n := n div 10;
until n = 0;
writeln('Количество цифр в числе: ', cnt);
end.