Question

Объясните пожалуйста, как это решать!?
Определите, что будет напечатано в результате работы следующего фрагмента программы :
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.
Ответ:

Answer 1

Ответ: 16.

Объясняю:

изначально s и n равны 0. И пока 2*s*s<123 к s будет прибавляется 1 , а к n 2. И первое число, которому может быть равно s это 8. Следовательно n=16.

Answer 2

Ответ:

16

добавил в цикл вывод s и n при каждом проходе по циклу, чтобы посмотреть как они изменяются. Выход из цикла произойдёт когда s=8, и в этом случае n=16

Объяснение:

var s, n: integer;

begin

 s:=0;

 n:=0;

 while 2*s*s<123 do begin

   writeln('мы ещё в цикле', s:3, n:3);

   s:=s+1;

   n:=n+2;

 end;

 writeln('Ответ n = ',n);

end.