Question

Склавиатуры вводится целое число k (k< =5). найти и вывести на экран первые к совершенных числа. совершенное число -- натурально число, равное сумме всех своих собственных делителей (т. е. всех положительных делителей, отличных от самого числа). pascal abc функцией

Answer 1

Program n1;
var k,i: longint;
function sov(n: longint): boolean;
var i,sum: longint;
begin
i:=1;
while i<n do
if ((n mod i)=0) then
begin
sum:=sum+i;
i:=i+1;
end else i:=i+1;
if sum=n then sov:=true else sov:=false;
end;
begin
write('k=');
readln(k);
for i:=1 to k do if sov(i) then write(i,' ');
end.