Составить программу, которая вычисляет и печатает сумму квадратов чётных чисел от 12 до 20
211
285
Ответы на вопрос:
Var a,s: integer; begin s: =0; a: =12; repeat s: =s+a*a; a: =a+2 until a > 20; writeln('s = ',s); end.
Популярно: Информатика
-
Chemist200110.06.2023 08:10
-
Кетшити12.05.2020 20:12
-
superutkanosska2217.04.2020 16:14
-
hitman1910200316.11.2021 01:45
-
Oneganin09.05.2020 12:34
-
veronika121718.05.2022 19:13
-
mashadadihf24.04.2023 19:46
-
200528226.05.2021 01:59
-
Nezlo804.06.2023 12:43
-
lexazykov2001415.01.2023 11:28