Дано число S. Является ли оно совершенным? Напишите пожалуйста программу для…

Question

67

Дано число S. Является ли оно совершенным? Напишите пожалуйста программу для Паскаля или блок-схему, очень прошу!

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

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

bubel · Accepted Answer

89

bubel

19 августа 2022

Program s1; var i, s, sum: word; begin readln (s); sum: =0; for i: =1 to s div 2 do begin if s mod i=0 then sum: =sum+i end; writeln (s=sum) end.

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

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