Главная > ПОИСК ДЕЛИТЕЛЕЙ НАТУРАЛЬНОГО ЧИСЛА
{ Составить программу печати всех делителей натурального числа A }
var a,n,c,d:word;
begin { основная программа }
    readln( a );
    n:=1;
    while ( n <= sqrt(a) ) do begin
       c:=a mod n;
       d:=a div n;
       if c = 0 then begin
          writeln( n );
          if n <> d then writeln( d );
       end;
       inc( n );
    end;
end.
 
Хостинг от uCoz