• Напишите программу в паскаль:

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

     

Ответы 1

  • program Divisors;

    var

    N,i: integer;

    begin

    readln(N);

    for i:=N downto 1 do if N mod i = 0 then write(i,' ');

    end.

    • Автор:

      porter30
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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