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

DIM S, N AS INTEGER

S = 0

N = 0

WHILE 2*S*S < 123

 S = S + 1

 N = N + 2

WEND

PRINT N

s = 0

n = 0

while 2*s*s < 123:

 s = s + 1

 n = n + 2

print(n)

var s, n: integer;

begin

 s := 0;

 n := 0;

 while 2*s*s < 123 do

 begin

   s := s + 1;

   n := n + 2

 end;

 writeln(n)

end.

Цикл прервётся тогда, когда будет выполнено неравенство . Найдём наименьшее целое s, при котором оно выполнится. Столько же раз выполнится цикл.

Наименьшее целое s=8 . Тогда n=16 .