Информатика, опубликовано 2018-08-22 23:54:51 by Гость
С клавиатуры вводится целое число K (K
Ответ оставил Гость
// PascalABC.NET 3.1, сборка 1195 от 09.03.2016
begin
var n:=ReadInteger(n=);
var k:=0;
var m:=3;
repeat
var s:=0;
for var i:=1 to m div 2 do
if m mod i=0 then s+=i;
if s=m then begin Print(m); Inc(k) end;
Inc(m);
until k=n
end.
Тестовое решение:
n= 4
6 28 496 8128
ВНИМАНИЕ: при n>4 время вычисления может быть катастрофически большим!
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на