написать программу для pascal: выиснить является ли заданное число совершенным?

Question

Информатика

Доняша

22 октября, 14:31

написать программу для pascal: выиснить является ли заданное число совершенным?

+1

Ответы (2)

Знаете ответ на вопрос?

Лавр · Answer 1

uses

SysUtils;

var

n, m, i:integer;

begin

readln (n) ;

m:=0;

for i : = 1 to n-1 do

if m > n then break else

if (n mod i = 0) then m:=m+i;

if m=n then writeln ('Yes') else

writeln ('No') ;

end.

Козьма · Answer 2

Program Pr1;

uses crt;

var i, n, a:integer;

Begin

clrscr;

readln (n) ;

i:=1; a:=0;

while i<=n do begin

if (n mod i=0) and (in) then a:=a+i;

inc (i) ;

end;

if a=n then writeln ('YES')

else writeln ('No') ;

end.