Ответы на вопрос:
var i, n, s: integer; begin readln(n); for i : = 1 to n do begin if(i mod 2 = 0) then s : = s + sqr(i); end; writeln(s); end.
Популярно: Информатика
-
Erekcia27.06.2020 03:43
-
ГАТИНЫ09.05.2021 12:26
-
артем20456731.05.2022 03:57
-
VovanBah27.07.2022 23:07
-
Fox33210.01.2023 07:55
-
tmihailviktoroozvxn909.12.2020 18:46
-
petrovakat200321.02.2021 06:54
-
inkognit123456708.06.2021 23:01
-
Kefir4ek04.06.2020 16:03
-
veratokareva3119.06.2022 01:57