Найти количество цифр натурального числа n. паскаль - вопрос №1222752 от klara90 20.05.2020 09:12

Question

Информатика: Найти количество цифр натурального числа n. паскаль input со стандартного устройства ввода вводится 1 натуральное число, не превосходящее 2000000000. output нужно выдать на стандартное устройство вывода 1 целое число – количество цифр введенного числа. sample input sample output 123456789 9 2918585 7

klara90 · Answer

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