Всеволод
5 год назад
Информатика. Паскаль.Подсчитать количество цифр числа N введенного с клавиатуры.
ОТВЕТЫ
Sava
Oct 24, 2020
Program P1;
uses crt; {Можно не писать, нужно для очистки экрана}
var n, i:integer;
begin
clrscr;
write('Введите число '); readln(n);
while n>0 do
begin
n:=n div 10;
i:=i+1;
end;
writeln('В введенной числе ', i, ' цифр');
end.
uses crt; {Можно не писать, нужно для очистки экрана}
var n, i:integer;
begin
clrscr;
write('Введите число '); readln(n);
while n>0 do
begin
n:=n div 10;
i:=i+1;
end;
writeln('В введенной числе ', i, ' цифр');
end.
305
Смежные вопросы:
