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

Question

Информатика

Дианка

2 августа, 13:38

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

+2

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