Ответы на вопрос:
Var i,x,n: integer; begini: =1; writeln('vvedit n'); readln(n); if n mod 2 = 0 then beginrepeatx: =i*i+x; i: =i+1; until i> n; endelse beginrepeatx: =i*i*i+x; i: =i+1; until i> n; end; writeln(x); readln; end.
Популярно: Информатика
-
diiiaanf10110.06.2021 10:45
-
Artem2003200322.08.2022 11:57
-
данил193128.02.2021 18:10
-
Gggggggggggg2220.11.2022 02:45
-
димон777705.08.2020 02:47
-
lemon23416.11.2020 02:41
-
nadezda1983115.11.2020 04:44
-
КатяЗюзина09.08.2022 01:32
-
Аля4Б29.08.2020 19:41
-
vitaliysv20031301.06.2020 09:17