Задание:
Помогите пожалуйста! Напишите программу паскаль. Вроде циклыДано натуральное число N. Определить, является ли оно совершенным. Совершенное число N равно сумме его делителей, не превосходящих само N.
Решение:
Program gt; var n,s,l,i: longint; beginread (n); s: =0; l: =round (sqrt (n); for i: =1 to l dobeginif (n mod i=0) then begins: =s+i; s: =s+n div i; end; end; if (l*l=n) then s: =s-l; if (s <= n) then writeln ('ДА ЭТО ПРАВДА') else writeln ('НЕТ'); end.2) program gt; var n: integer; beginread (n); if (n=1) then writeln ('ДА') else writeln ('НЕТ'); end.3) program gt; var n,s: integer; beginread (n); s: =(1+n)*n) div 2; writeln (s); end.
Знаете другой ответ?