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

Question

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

Answer 1

Program fanatpetsa;
var sum,i,n : integer;
  begin
  writeln('*   alphaues is thinking...   *');
  write('Ok, введите число N =');
  readln(n);
  sum:=0;
  for i:=1 to n do
  begin
    if n mod 2 = 0 then sum := sum + n*n;
  end;
   writeln('Сумма квадратов равна ',sum);
  writeln('*******************************');
end.