написать программу находящую количество цифр вводимого неотрицательного положительного числа
More Questions From This User See All
написать программу находящую количество цифр вводимого неотрицательного положительного числа
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.