Напишите ФУНКЦИЮ, которая вычисляет количество цифр числа
Напишите ФУНКЦИЮ, которая вычисляет количество цифр числа
Гость
Ответ(ы) на вопрос:
ГостьFunction kolich (a: integer):integer
Begin
Integer i;
I:=1
While (a div 10 > 0) do
Begin
i:=i+1;
a:=a div 10;
End;
Kolich:=i;
End
Не нашли ответ?
Похожие вопросы