Массивы

[vbchristy46]

Дано 2 числа. Определить какое число имеет больше делителей

[megachuhancer]

А что конкретно не получается?

[Vikenty]

А массивы тут причем?

[vbchristy46]

А нет....Это не массивы,а циклы

[megachuhancer]

Ну,

for i := 1 to trunc(sqrt(a)) do if a mod i = 0 then Inc(count, 2);

Это чтобы сосчитать число делителей у числа a

[vbchristy46]

Спасибо большое!)))

[megachuhancer]

Спасибо большое!)))

А ты хоть проверил? работает?

[Vikenty]

Вот. если в первом числе больше делителей то возвращает True иначе False

function MaxDivs(N1,N2: integer): boolean;
var
i,j: integer;
n_1,n_2: integer;
begin
n_1:=0; n_2:=0;
for i:=1 to N1 do
if N1 mod i=0 then n_1:=n1+1;
for j:=1 to N2 do
if N2 mod j=0 then n_2:=n2+1;
MaxDivs=(N_1>N_2);
end;

[Vikenty]

Или наибольший общий делитель?

[megachuhancer]

Меня смущают вот эти куски:

if N1 mod i=0 then n_1:=n1+1;
...
if N2 mod j=0 then n_2:=n2+1;

Мб, там должны быть n_1 и n_2 соответственно?