Предмет: Информатика,
автор: ksyushaantonov
СРОЧНО!!!!!
Язык программирования - Паскаль
Ввести целое число и определить количество цифр в нем.
Так же дан алгоритм: Отсекаем последнюю цифру, при этом увеличиваем счетчик на единицу. Надо остановиться, пока n<>0.
Буду очень благодарна(:
Ответы
Автор ответа:
1
var
n,i : integer;
begin
readln(n);
i := 0;
while(n <> 0) do
begin
n := n div 10;
i := i+1;
end;
Writeln(i);
end.
n,i : integer;
begin
readln(n);
i := 0;
while(n <> 0) do
begin
n := n div 10;
i := i+1;
end;
Writeln(i);
end.
Интересные вопросы
Предмет: Русский язык,
автор: nacccty
Предмет: Русский язык,
автор: timon201
Предмет: Английский язык,
автор: MaryDawn
Предмет: Английский язык,
автор: frisktale06
Предмет: Русский язык,
автор: AXI1988