• Пожалуйста, помогите написать программу в паскале. Дано число N. Найти сумму его делителей.

Ответы 1

  • var n,s,i:integer;beginwrite('N = '); readln(n);if n>1 then s:=1+n else s:=1;for i:=2 to n div 2 do if n mod i = 0 then s:=s+i;writeln('S = ',s);end.Пример:N = 12S = 28
  • Добавить свой ответ

Войти через Google

или

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

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

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