Ответы на вопрос:
Var s: real; n,i: integer; begin write('n = '); readln(n); s: =1; for i: = 1 to n do s: =s+sqr(i+n); writeln('s = ',s); end.
// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('n='); var s: =1+range(1,n).select(i-> sqr(i+; writeln('s=',s) end. пример n= 10 s=2486
Популярно: Информатика
-
korzhik55903.11.2022 05:24
-
nataliamakarov323.08.2020 19:53
-
mirapax1997ozb3lk23.05.2021 06:26
-
moscow150624.09.2022 23:00
-
uciviyciy06.01.2022 15:45
-
lizarodionov6Liza21.12.2021 22:13
-
Edward1111111115.10.2021 05:04
-
VladMirnyi28.10.2021 09:30
-
RancoR113.07.2020 16:17
-
14ксенечка1510.09.2021 04:38