Определи, сколько существует различных значений переменной  � x, при вводе которых программа выведет число  128 128: var x, s, n: integer; begin readln(x); s := 12 * (x div 10); n := 1; while s < 200 do begin 　　s := s + 30; 　　n := n * 2 end; writeln(n) end.

Для того чтобы программа вывела число 128, значение переменной x должно быть равно 10. При этом, исходно заданное значение переменной s будет равно 120 (12 * (10 div 10) = 12 * 1 = 12).

В цикле while будет увеличиваться значение переменной s на 30, а значение переменной n будет удваиваться с каждой итерацией, пока сумма s не станет больше или равна 200. В итоге, когда s достигнет 180 (120 + 30 + 30), n будет равно 4 (ибо 1 * 2 * 2 * 2 = 4), а при увеличении s еще на 30 до 210 цикл завершится, так как условие s < 200 уже не будет верным. Поэтому программа выведет число 4.

Таким образом, необходимое значение переменной x для вывода числа 128 – это 10.