Cekus
4 год назад
Определить количество цифр в числе
ОТВЕТЫ
Екатерина
Oct 24, 2020
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.
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.
805
Смежные вопросы:
