Компьютер перебирает четные числа до тех пор пока сумма их квадратов не привысет n. чему равна сумма квадратов?pascal
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
Какой-т бред здесь намутил, вроде рабочий :) 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.
Действительно, бред.
:D