Ответ(ы) на вопрос:
ГостьVar
A,k:integer;
Begin
WriteLn('Введите целое число');
ReadLn(A);
k:=0;
While A<>0 do
Begin
k:=k+1;
A:=A div 10
End;
WriteLn('k = ',k)
End.
Не нашли ответ?
Похожие вопросы