Поиск всех делителей натурального числа — Pascal(Паскаль)

Натурáльные чи́сла (от лат.naturalis «естественный») — числа, возникающие естественным образом при счёте (1, 2, 3, 4, 5, 6, 7 и так далее…). Последовательность всех натуральных чисел, расположенных в порядке возрастания, называется натуральным рядом.

Ниже рассмотрен пример поиска всех делителей натурального числа на Pascal.

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.

Поделитесь своим мнением или задайте вопрос