Определить количество цифр в числе

Question

Информатика

Мавра

28 ноября, 19:11

Определить количество цифр в числе

+4

Ответы (1)

Знаете ответ на вопрос?

Семеныч · Answer 1

Var

A, k:integer;

Begin

WriteLn ('Введите целое число') ;

ReadLn (A) ;

k:=0;

While A0 do

Begin

k:=k+1;

A:=A div 10

End;

WriteLn ('k = ', k)

End.