определите значение переменной n которое будет получено в результате выполнения следующей программы:
var s, n: integer;
begin
s:=0; n:=1;
while sqr (s+2)<125 do
begin
n:=n*2
s:=s+2
end;
writeln (n)
end.​

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.

самым главным считается объем

аx2+c=0

аx2=-с

х=-с/а

если -с/а меньше 0, корней нет

есла -с/а равно 0, то х=0

если -с/а больше 0,х=+-корень из -с/а

p = a + b + с т.е.сумма длин всех его сторон(из