написать программу нахождения делителей числа, введенного с клавиатуры

1

Ответы и объяснения

2014-03-10T15:04:33+00:00
var
  a, i: integer;

Begin
  readln(a);
  for i := 1 to a do
    if (a mod i = 0) then
      write(i, ' ');
End.