Question

Клоун предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот задумывал. Составьте программу, которая повторяла бы фокус клоуна (пользователь называет число, а программа угадывает, какое число было задумано). решить как в паскаль пж

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Какое число получилось?');
  Writeln('Вы загадали число ',n-10)
end.

Answer 2

Вот программа на языке Pascal, которая повторяет фокус клоуна:

pascalCopy code
program ClownMagicTrick;

var
  userNumber, result: integer;

begin
  writeln('Добро пожаловать на фокус клоуна!');
  writeln('Пожалуйста, задумайте число.');

  // Пользователь вводит задуманное число
  write('Введите ваше задуманное число: ');
  readln(userNumber);

  // Выполняем фокус клоуна
  result := userNumber + 5;
  result := result - 2;
  result := result + 7;

  // Выводим результат фокуса
  writeln('Клоун угадал! Вы задумали число: ', result);

  // Ждем, пока пользователь прочитает результат, прежде чем закрыть программу
  readln;
end.

Пользователь вводит число, а программа затем выполняет те же арифметические операции, которые делал клоун, и выводит результат, который он "угадал". Конечно, фокус основан на математической логике, а не на настоящей магии!