Запишите число, которое будет выведено в результате работы программы:

var s, n: integer;

begin

s := 0;

n := 1;

while s*s <= 125 do begin

s := s + 3;

n := n * 2

end;

writeln(n)

end.

ответ: 16

Объяснение:

s = 0

n = 1

пока 0 * 0 <= 125 делать:

s = 0 + 3 = 3

n = 1 * 2 = 2

пока 3 * 3 = 9 <= 125 делать:

s = 3 + 3 = 6

n = 2 * 2 = 4

пока 6 * 6 = 36 <= 125 делать:

s = 6 + 3 = 9

n = 4 * 2 = 8

пока 9 * 9  = 81 <= 125 делать:

s = 9 + 3 = 12

n  = 8 * 2 =16

пока 12 * 12 = 144 <= 125 - условие становится неверным, выход из программы.

n = 16