Question

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

Answer 1

Var n,a,s:integer;
begin
readln(n);
a:=0;
s:=0;
while s<=n do
 begin
 a:=a+2;
 s:=s+a*a;
 end;
writeln('s = ',s);
end.

Пример:
500
s = 560

Answer 2

Какой-т бред здесь намутил, вроде рабочий  :)

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);
 readln
end.