Составить программу подсчитывающую количество цифр числа вводимого с клавиатуры

Составить программу подсчитывающую количество цифр числа вводимого с клавиатуры
Гость
Ответ(ы) на вопрос:
Гость
var a,i,n:integer; begin readln(a); while a>0 do begin inc(i); a:=a div 10; end; writeln(i); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы