Помогите пожалуйста! напишите программу паскаль. вроде циклыДано натуральное число N....

Question

Помогите пожалуйста! напишите программу паскаль. вроде циклы
Дано натуральное число N. Определить, является ли оно совершенным. Совершенное число N равно сумме его делителей, не превосходящих само N.

Comments

понятно почему так получилось?

---

в информатике ничего не понимаю, но думаю это то, что надо. спасибо

---

тогда давай расскажу ход решения программы

---

дано натуральное число n. определить сумму натуральных чисел не превосходящих n. с этим не поможешь?

---

да

---

по-моему эта легче)

---

сумму натуральных которые начинаются с 1 и по возрастанию(1 2 3 ..)?

---

а все

---

3 способ посмотри

---

СПАСИБО ОГРОМНОЕ!!!

Answer 1

Program gt;
var n,s,l,i:longint;
begin
read(n);
s:=0;
l:=round(sqrt(n));
for i:=1 to l do
begin
if(n mod i=0)then begin
s:=s+i;
s:=s+n div i;
end;
end;
if(l*l=n)then s:=s-l;
if(s<=n)then writeln('ДА ЭТО ПРАВДА')else writeln('НЕТ');<br>end.
2)
program gt;
var n:integer;
begin
read(n);
if(n=1)then writeln('ДА')else writeln('НЕТ');
end.
3)
program gt;
var n,s:integer;
begin
read(n);
s:=((1+n)*n)div 2;
writeln(s);
end.