С клавиатуры вводится целое число K (K<=5). Найти и вывести на экран первые К совершенных числа.

Совершенное число - - натурально число, равное сумме всех своих собственных делителей (т. е. всех положительных делителей, отличных от самого числа).

Pascal ABC

функцией

Question

Информатика

Тарасий

27 июля, 09:33

С клавиатуры вводится целое число K (K<=5). Найти и вывести на экран первые К совершенных числа.

Совершенное число - - натурально число, равное сумме всех своих собственных делителей (т. е. всех положительных делителей, отличных от самого числа).

Pascal ABC

функцией

+3

Ответы (1)

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

Геруся · Answer 1

Program n1;

var k, i: longint;

function sov (n: longint) : boolean;

var i, sum: longint;

begin

i:=1;

while i
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.