Значение переменной с будет 32
Проверил опытным путем
<span> Вроде бы Г. Холлерит в 1800-ых основал фирму по выпуску счетно-перфорационных машин.</span>
Var a,b,k:integer;
begin
read(a,b); k:=a-1;
if a>b then do
while k<>b do begin
write(k); k:=k-1;
end;
end.
За<span> 7 вопросов:</span>
1 вопрос: задуманное число больше 50? Например «Да» или
«нет» не важно. 2 вопрос: задуманное число больше 25? Например, опять
«Нет».
3 вопрос: задуманное число больше 12? Пусть опять «Да».
4 вопрос: задуманное число больше 18? Пусть будет «Нет».
5 вопрос: задуманное число больше 14? Пусть опять «Нет».
6 вопрос: задуманное число больше 12? Пусть будет «Да».
7 вопрос: Это число 13? Если да – число
угадано, если нет – то число 14