Предмет: Информатика,
автор: olgakuzneczova1979
Найти количество цифр натурального числа N. паскаль
Input
Со стандартного устройства ввода вводится 1 натуральное число, не превосходящее
2000000000.
Output
Нужно выдать на стандартное устройство вывода 1 целое число – количество цифр
введенного числа.
Sample Input Sample Output
123456789 9
2918585 7
olgakuzneczova1979:
решение
Ответы
Автор ответа:
0
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
Похожие вопросы
Предмет: Окружающий мир,
автор: maxtinidy
Предмет: Алгебра,
автор: MalinkaIrinka7682
Предмет: Математика,
автор: sofia29671
Предмет: Литература,
автор: Зима30