Ответы
Ответ дал:
1
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.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад