Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Вычеслите сумму квадратов всех четных чисел от1 до n

Ответ оставил Гость

var
  i, n, s: integer;
begin
  readln(n);
  for i := 1 to n do begin
    if(i mod 2 = 0) then s := s + sqr(i);
  end;
  writeln(s);
end.