Ответы на вопрос:
Var n, s, i: integer; begin write('введите n> > '); readln(n); if n> 0 then for i: =1 to n do s: =s+sqr(i); writeln(s); end.
Популярно: Информатика
-
potochnystanis10.10.2022 21:56
-
nfedorova86830.05.2023 01:33
-
datskivvera129.10.2022 03:01
-
kinzya12.11.2020 03:16
-
Zanaar29.05.2022 14:23
-
t12345k06.12.2020 03:12
-
kistina223.10.2020 03:35
-
kazz1m18.07.2022 20:47
-
VF8513.06.2021 22:27
-
fsulleymanzade10.08.2020 07:28