SaveText.Ru
Add a new text
View all texts
Change language
English
Russian
Registration
SaveText.Ru
Без имени
Program qwerty;
var a,k: integer;
begin
writeln ('Введите число');
readln(a);
while a<>0 do begin
a:=a div 10;
k:=k+1;
end;
Writeln ('Кол-во цифр: ',k);
end.
Share with your friends:
Print