Найти все целые делители числа, кроме 1 и его самого — Pascal (Паскаль)

Для введенного с клавиатуры произвольного целого числа определить все возможные целые делители, кроме 1 и самого числа. Если число не имеет таких делителей, сообщить об этом. (Например: для 20 – 2,4,5,10; для 21 — 3,7; для 23 – «нет делителей»).

    program cel;
    var
      n,i,c:longint;
    begin
      write('n=');
      readln(n);
      write(n,':');
      for i:=2 to abs(n div 2)+1 do
        if n mod i=0 then begin
          write(i,' ');
          c:=c+1;
        end;
      if c=0 then writeln('no divisors');
      readln;
    end.

Leave a Comment