Question

Пожалуйста решите и составьте программу на языке Паскаль.Фокусник предложил зрителю загадать определенное число. Потом он сказал: "Прибавьте к задуманному числу 5. Теперь из результата вычтите 2. Теперь к результату прибавьте 7". Фокусник попросил озвучить результат. Услышав ответ, он немедленно объявил задуманное число. Составьте программу, которая повторяла бы фокус.

Answer 1

....................................................

Answer 2

Решение и программа на языке Паскаль

Для повторения фокуса, когда фокусник предлагает зрителю загадать определенное число, а затем выполняет несколько арифметических операций, можно использовать следующую программу на языке Паскаль:

program MagicTrick;
var
  guessedNumber, result: integer;
begin
  // Предложение зрителю загадать число
  writeln('Загадайте любое целое число: ');
  readln(guessedNumber);
  
  // Выполнение арифметических операций
  result := guessedNumber + 5;
  result := result - 2;
  result := result + 7;
  
  // Вывод результата
  writeln('Результат: ', result);
  
  // Объявление задуманного числа
  writeln('Фокусник объявляет, что ваше задуманное число: ', guessedNumber);
end.

Эта программа позволяет пользователю загадать число, выполняет несколько арифметических операций и затем объявляет задуманное число, повторяя фокус фокусника.

Примечание: При составлении программы были использованы стандартные команды языка Паскаль для ввода и вывода данных, а также для выполнения арифметических операций.

Используйте эту программу, чтобы повторить фокус и порадовать зрителей!