Turbo Pascal Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найдите частное этих чисел? срочно. За ранее спасибо

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

Вот пример реализации:

pascal
program SumAndProductOrQuotient;
var
  num1, num2: real; // Используем тип real для возможности деления с остатком
  sum: real;
begin
  // Ввод чисел
  writeln('Введите первое число:');
  readln(num1);
  writeln('Введите второе число:');
  readln(num2);
  // Вычисляем сумму
  sum := num1 + num2;
  // Проверяем, четная ли сумма
  if trunc(sum) mod 2 = 0 then
  begin
    // Сумма четная, выводим произведение
    writeln('Сумма чисел четная.');
    writeln('Произведение чисел: ', num1 * num2:0:2);
  end
  else
  begin
    // Сумма нечетная, выводим частное
    if num2 <> 0 then
    begin
      writeln('Сумма чисел нечетная.');
      writeln('Частное чисел: ', num1 / num2:0:2);
    end
    else
    begin
      writeln('Ошибка: Деление на ноль невозможно.');
    end;
  end;
end.

Объяснение кода:

1. Объявление переменных:

   • num1 и num2 хранят вводимые числа.
   • sum используется для хранения их суммы.

2. Ввод чисел:

   • Используем readln для считывания значений с клавиатуры.

3. Проверка на четность:

   • Сумма округляется до целого числа с помощью trunc (если нужно работать с вещественными числами).
   • Используется оператор mod для проверки остатка от деления на 2.

4. Вывод результата:

   • Если сумма четная, выводится произведение чисел.
   • Если сумма нечетная, проверяется, что делитель (num2) не равен нулю, затем выполняется деление.

5. Обработка ошибки деления на ноль:

   • Программа проверяет делитель и выводит сообщение об ошибке, если num2 = 0.

Пример работы программы:

Ввод:

Введите первое число:
4
Введите второе число:
2

Вывод:

Сумма чисел четная.
Произведение чисел: 8.00

Ввод:

Введите первое число:
7
Введите второе число:
3

Вывод:

Сумма чисел нечетная.
Частное чисел: 2.33

Ввод:

Введите первое число:
5
Введите второе число:
0

Вывод:

makefile
Сумма чисел нечетная.
Ошибка: Деление на ноль невозможно.

Код универсален и справляется с различными вводами, включая числа с плавающей точкой.