Напишите функцию, которая вычисляет количество цифр числа (PascalABC)
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
kol1:integer;
begin
kol1:=0;
repeat
kol1:=kol1+1;
n:=n div 10;
until n=0;
kol:=kol1;
end;