Написать программу находящую количество цифр вводимого неотрицательного положительного числа
Написать программу находящую количество цифр вводимого неотрицательного положительного числа
Гость
Ответ(ы) на вопрос:
Гостьvar
a, c : integer;
begin
readln (a);
c := 0;
if (a = 0) then c := 1
else
while a <> 0 do
begin
c := c + 1;
a := a div 10;
end;
writeln (c);
end.
Не нашли ответ?
Похожие вопросы