Дано натуральне число n визначити кількість цифр у цьому числі Паскаль. Робити на рівні 10 класу

Дано натуральне число n визначити кількість цифр у цьому числі Паскаль. Робити на рівні 10 класу
Гость
Ответ(ы) на вопрос:
Гость
 var m, n: longint;      k: integer;beginreadln(n);   m:=n;k:=0;   while m <>0 do    begin      k:=k+1; m:= m div 10;    end;   writeln('B числе ',n,'- ',k, ' цифр!');  readln;end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы