Выполнить это задание. Определи, сколько существует различных значений переменной �

x�, при вводе которых программа выведет число �
64
64�:

var x, s, n: integer;

begin

readln(x);

s := 12 * (x div 10);

n := 1;

repeat

s := s + 15;

n := n * 2

until s > 100;

writeln(n)

end.

Для того чтобы программа вывела число 64, значение переменной x должно быть равно 6.

При x=6 программа выполнит следующие действия:

s := 12 * (6 div 10) = 0

s := s + 15 = 15

n := n * 2 = 2

s := s + 15 = 30

n := n * 2 = 4

s := s + 15 = 45

n := n * 2 = 8

s := s + 15 = 60

n := n * 2 = 16

s := s + 15 = 75

Условие s > 100 выполнено, поэтому цикл останавливается. В этот момент значение переменной n равно 16, что и будет выведено на экран.

Таким образом, существует только одно значение переменной x, при котором программа выведет число 64, а именно x=6.