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