Ответы 1

  • program xxx;

      var i, n : integer;

    begin

     write ('введите число N-');

     readln (n);

     writeln('Делители числа: ');

     for i :=1 to n do

       if n mod i = 0 then writeln (i)

    end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years