С клавиатуры вводится целое число 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы