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

Question

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

Answer 1

Var n,a,s:integer;
begin
readln(n);
a:=0;
s:=0;
while s<=n do<br> 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    then
     If i mod 2=0
      then
       s:=s+sqr(i)
      else
       goto 1
    else
     break;
   1:
  end;
 writeln(s);
 readln
end.

Comments

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

---

:D