Предмет: Информатика, автор: olgakuzneczova1979

Найти количество цифр натурального числа N. паскаль
Input
Со стандартного устройства ввода вводится 1 натуральное число, не превосходящее
2000000000.
Output
Нужно выдать на стандартное устройство вывода 1 целое число – количество цифр
введенного числа.

Sample Input Sample Output

123456789 9
2918585 7


olgakuzneczova1979: решение

Ответы

Автор ответа: raf1O5
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

Похожие вопросы
Предмет: Алгебра, автор: MalinkaIrinka7682
Предмет: Математика, автор: sofia29671