Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Здравствуйте,помогите пожалуйста с задачей на паскаль.…

Здравствуйте,помогите пожалуйста с задачей на паскаль. Найти все " совершенные" числа, не превосходящие 1000.Совершенным называется число,равное сумме своих делителей. Например, 6=1+2+3. - вопрос №1770567

Эльвира
23.12.15
Учеба и наука / Информатика
2 ответа

Ответы

Александр Константинович
Могу помочь. Платно.
24.12.15

Анатолий
За что тут платить? Элементарно.

program perfectnumbers;var divider: Integer;var i, j, number: Integer;begin  for i := 0 to 1000 do  begin    number := 0;    for j := 1 to i-1 do    begin      if i mod j = 0 then        number += j;    end;    if number = i then      writeln(i);  end;
end.
24.12.15

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее