Question

Составьте программу на языке Pascal для решения задачи. С клавиатуры вводятся два числа. Если их произведение отрицательно, необходимо умножить его на 8, в противном случае увеличить его в 1,5 раза. Результат вывести на экран

Answer 1

PascalABC.NET

Ответ:

• begin
• var p := ReadReal*ReadReal;
• p *= p<0 ? 8 : 1.5;
• p.Print
• end.

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

Answer 2

Конечно, вот пример программы на языке Pascal, который выполняет указанные действия:

pascalCopy code
program CalculateResult;
var
  num1, num2, product: real;

begin
  // Ввод двух чисел с клавиатуры
  writeln('Введите первое число:');
  readln(num1);

  writeln('Введите второе число:');
  readln(num2);

  // Вычисление произведения
  product := num1 * num2;

  // Проверка условия и выполнение соответствующих действий
  if product < 0 then
    product := product * 8
  else
    product := product * 1.5;

  // Вывод результата
  writeln('Результат: ', product:0:2);
end.

Скопируйте этот код в среду разработки Pascal (например, Free Pascal) и запустите программу. Она попросит вас ввести два числа, после чего выведет результат в соответствии с описанными условиями.