Определите, при каком наименьшем введённом значении переменной s программа выведет число 128.
var s, n: integer;
begin
readln(s);
n := 2;
while s < 45 do
begin
s:= s + 3;
n := n * 2;
end;
writeln(n);
end.

Два метода решения - ручной подсчет и лайфхак с программой.

Ответ:

27