Question

ПОМОГИТЕ С ИНФОРМАТИКОЙ ПАСКАЛЬ Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран

Answer 1

===== PascalABC.NET =====

begin

   var (a, b) := ReadInteger2;

   var c := a * b;

   Print(c < 0 ? -2 * c : 3 * c)

end.

Answer 2

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

pascalCopy code
program ProductCheck;

var
  num1, num2, product: integer;

begin
  writeln('Введите первое число:');
  readln(num1);
  
  writeln('Введите второе число:');
  readln(num2);
  
  product := num1 * num2;
  
  if product < 0 then
  begin
    product := product * (-2);
    writeln('Произведение отрицательно. Результат умножения на -2: ', product);
  end
  else
  begin
    product := product * 3;
    writeln('Произведение положительно. Результат умножения на 3: ', product);
  end;
  
  readln;
end.

Программа запрашивает у пользователя ввод двух чисел, затем находит их произведение в переменной product. Если произведение отрицательно, оно умножается на -2 и выводится на экран. В противном случае произведение увеличивается в 3 раза и также выводится на экран.

Обратите внимание, что в данной программе предполагается, что введенные значения будут целыми числами. Если вы хотите работать с дробными числами, замените тип данных integer на real в объявлении переменных.