Один момент остается неясным. Определи, сколько существует различных значений переменной �
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.