компьютер перебирает четные числа до тех пор пока сумма их квадратов не привысет n. чему равна сумма квадратов?pascal 

Действительно, бред.

:D

Какой-т бред здесь намутил, вроде рабочий  :)label 1;var i,n,s:longint;begin write('Write n: '); readln(n); s:=0; for i:=1 to 10000 do  begin   if s<n    then     If i mod 2=0      then       s:=s+sqr(i)      else       goto 1    else     break;   1:  end; writeln(s); readlnend.

var n,a,s:integer;beginreadln(n);a:=0;s:=0;while s<=n do begin a:=a+2; s:=s+a*a; end;writeln('s = ',s);end.Пример:500s = 560