Составить программу нахождения суммы квадратов n-четных чисел. (в Паскале)

Question

Информатика

Поликарпий

12 декабря, 05:38

Составить программу нахождения суммы квадратов n-четных чисел. (в Паскале)

+1

Ответы (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.