Найти количество цифр натурального числа n. паскаль input со стандартного устройства ввода вводится 1 натуральное число, не превосходящее 2000000000. output нужно выдать на стандартное устройство вывода 1 целое число – количество цифр введенного числа. sample input sample output 123456789 9 2918585 7
program raf105;
var a,b:real;
begin
write('Ввод: ');
read(a);
while a<>0 do
begin
a:= (a-((a/10-(round(a/10)))*10))/10;
b:= b+1;
end;
write('Вывод: ',b);
end.
Программа написана на языке PascalABC.NET