Вычислите сумму квадратов N четных натуральных чисел.

Question

Информатика

Светозар

28 января, 04:19

Вычислите сумму квадратов N четных натуральных чисел.

+4

Ответы (1)

Знаете ответ на вопрос?

Валюся · Answer 1

Var n, i, s, a:integer;

begin

write ('Введите n = ') ; readln (n) ;

s:=0; a:=0;

for i:=1 to n do

begin

a:=a+2;

s:=s+a*a;

end;

writeln ('Сумма квадратов ', n,' четных натуральных чисел = ', s) ;

end.