• Составьте программу вывода числа делителей натурального числа М
    В ПАСКАЛЕ ABC ПОЖАЛУЙСТА

Ответы 1

  • var m,d,kol:uint64;beginread(m);for d:=1 to m do begin   if (m mod d)=0 then inc(kol);   end;write(kol);end. Это программа для делителей от 1 до m.var m,d,kol:uint64;beginread(m);for d:=2 to m-1 do begin   if (m mod d)=0 then inc(kol);   end;write(kol);end. Эта программа для делителей от 2 до m-1.
    • Автор:

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

Войти через Google

или

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

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

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