function f(n:integer):integer;
var i,count:integer;
begin
count:=1;
for i:=2 to n div 2 do
if n mod i=0 then
inc(count);
f:=count;
end;
функция function count
В точках 1,2,3,....,k напечатать значения f(n)- количество положительных делителей числа n
Даже можно считать не до
,
а до
Код:
n div 2
а до
Код:
Round(Sqrt(n))