Question

Найти сумму значений квадратов четных чисел от 2 до 40

Answer 1

Если на паскале то примерно так
var i, sum:integer;
Begin
for i:=2 to 40 do
if i mod 2 = 0 then sum:=sum+sqr(i);
Writeln(sum);
end.