цикл(pascal)

[Вероника_94]

Составте программу ,которая нашла бы в интервале [1..1000] число, имеющее наибольшее количество делителей

[Mad_Cat]

uses crt;
function KolDel(n:integer):integer;//(c)Puporev
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if n mod i=0 then k:=k+1;
KolDel:=k;
end;
var a,mx,amx:integer;
begin
clrscr;
mx:=0;
For a:=1 to 1000 do
 if KolDel(a)>mx then
   begin
    mx:=KolDel(a);
    amx:=a;
   end;
write('Наибольшее число делителей в числе ',amx);
readln
end.

[Вероника_94]

Большое спасибо, а можно сделать без использования функции?

[Serge_Bliznykov]

Сообщение от Вероника_94

Большое спасибо, а можно сделать без использования функции?

можно. делайте.


достаточно подсчёт разместить прямо в цикле и всё...

....
mx:=0;
For a:=1 to 1000 do begin
   KolDel := 0; 
   for i:=1 to a do
       if a mod i=0 then Inc(KolDel);
   if KolDel>mx then begin
      mx:=KolDel;
      amx:=a;
   end;
end;
....

[Вероника_94]

огромное спасибо)))))))