С клавиатуры вводится целое число K (K меньше =5). Найти и вывести на экран первые К совершенных числа. Совершенное число -- натурально число, равное сумме всех своих собственных делителей (т. е. всех положительных делителей, о...
С клавиатуры вводится целое число K (K<=5). Найти и вывести на экран первые К совершенных числа.
Совершенное число -- натурально число, равное сумме всех своих собственных делителей (т. е. всех положительных делителей, отличных от самого числа).
Pascal ABC
функцией
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var k,i: longint;
function sov(n: longint): boolean;
var i,sum: longint;
begin
i:=1;
while i
Не нашли ответ?
Похожие вопросы