Ответы
Ответ дал:
0
program kol_cifr;
var
x:int64;
k:integer;
begin
writeln('Введите число》');
read(x);
k:=0;
while x>0 do
begin
x:=x div 10;
inc(k);
end;
write('Количество цифр》',k);
end.
Приложения:
![](https://st.uroker.com/files/d7e/d7eab4afc9bef11f46f5f33f6e10efc0.jpg)
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад