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