Вывести все совершенные числа в промежутке от 1 до 100. Совершенное число это…

Question

41

Вывести все совершенные числа в промежутке от 1 до 100. Совершенное число это натуральное число равное сумме своих собственных делителей (отличных отсамого числа)

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

a-one · Accepted Answer

61

a-one

19 августа 2022

Var i, j, s: integer; Begin For j: =1 to 100 do Begin s: =0; For i: =1 to (j div 2) do if (j mod i=0) then s: =s+i; if (j=s) then writeln (s); End; End.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: