Вывести все совершенные числа в диапазон 5 до 200

Question

97

Вывести все совершенные числа в диапазон 5 до 200

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

ответить

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

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

invincible · Accepted Answer

73

invincible

21 августа 2022

Совершенное число это число равное сумме своих делителей отличных от самого числаvar i, s,j: integer; begin for i: =5 to 200 do begin s: =0; for j: =1 to i div 2 do if (i mod j=0) then s: =s+j; if s=i then writeln (i); end; end.

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

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

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

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