СРОЧНО!!!!! Язык программирования - Паскаль Ввести целое число и определить количество цифр в нем. Так же дан алгоритм: Отсекаем последнюю цифру, при этом увеличиваем счетчик на единицу. Надо остановиться, пока n меньше больше...
СРОЧНО!!!!!
Язык программирования - Паскаль
Ввести целое число и определить количество цифр в нем.
Так же дан алгоритм: Отсекаем последнюю цифру, при этом увеличиваем счетчик на единицу. Надо остановиться, пока n<>0.
Буду очень благодарна(:
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы