Регистрация
sa66
01.04.2022 09:28
Информатика
Есть ответ 👍

Переведите с pascal на python​i: =k-1; while i> =1 do begin a[i]: =a[i+1]-1; a[n-i+1]: =a[i]; dec(i); end;

193
325
Посмотреть ответы 1

Ответы на вопрос:

Ааа5678
Ааа5678
4,6(43 оценок)
// 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 время вычисления может быть катастрофически большим!

Популярно: Информатика