Напишите функцию, которая вычисляет количество цифр числа (PascalABC)
Напишите функцию, которая вычисляет количество цифр числа (PascalABC)
Гость
Ответ(ы) на вопрос:
Гостьfunction kol(n:integer):integer;
var
kol1:integer;
begin
kol1:=0;
repeat
kol1:=kol1+1;
n:=n div 10;
until n=0;
kol:=kol1;
end;
Не нашли ответ?
Похожие вопросы