Ответы на вопрос:
Pascalabc.net 3.4.0, сборка 1671 от 31.05.2018 внимание! если программа не работает, обновите версию! begin for var i: =1 to 100000 do begin var s: =0; for var j: =1 to i div 2 do if i mod j=0 then s+=j; if s=i then print(i) end; writeln end. результат 6 28 496 8128
Популярно: Информатика
-
вова95304.10.2021 10:53
-
LilyBlackk01.04.2023 01:16
-
ksubol77727.05.2020 09:37
-
zaventerharut09.01.2022 11:29
-
mullyminovam09.09.2021 07:25
-
Jfjgfiiffifi22.08.2020 10:42
-
Callll16.01.2020 03:42
-
AlinaAok15.05.2020 07:14
-
ZolotoNaMoeyShee14.09.2021 18:35
-
kozaksolomia126.05.2022 18:03