Ответы на вопрос:
program For11;
var
N, Rez,i :Integer;
begin
Write('Введите N: ');
Readln(N);
rez:=0;
For i:=0 to N do Rez:=Rez+sqr(N+i);
Writeln(Rez);
end.
var
N, Rez,i :Integer;
begin
Write('Введите N: ');
Readln(N);
rez:=0;
For i:=0 to N do Rez:=Rez+sqr(N+i);
Writeln(Rez);
end.
Популярно: Информатика
-
vaierchik09.11.2021 22:23
-
22Марина117.02.2022 22:51
-
Kol07L0730.09.2021 03:33
-
mamikon77728.06.2023 11:06
-
YanaRy08.04.2021 05:57
-
jockman26.03.2020 03:44
-
jykov200025.02.2021 14:13
-
УмныйЧеловек199924.06.2023 21:46
-
яяя61228.02.2020 09:03
-
Rabver25.11.2020 02:55