Question

Программа ABCpascal: Ввести с клавиатуры два числа, если произведение этих чисел положительно, то найти их разность, а иначе найти их деление.

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (a, b) := ReadReal2;

 if a * b > 0 then Println(a - b)

 else Println(a / b)

end.

Answer 2

Программа abcpascal должна выполнить следующие шаги:

1. Попросить пользователя ввести два числа с клавиатуры.

2. Считать введенные значения и сохранить их в две переменные.

3. Проверить, является ли произведение этих чисел положительным. Для этого нужно умножить эти два числа и проверить знак результата.

4. Если произведение положительное, то найти их разность. Для этого нужно вычесть второе число из первого числа и сохранить результат в новую переменную.

5. Если произведение отрицательное или равно нулю, то найти их деление. Для этого нужно разделить первое число на второе и сохранить результат в новую переменную.

6. Вывести результат на экран пользователю.

Пример кода на языке Pascal:

program abcpascal;

var
  num1, num2, result: real;

begin
  write('Введите первое число: ');
  readln(num1);
  
  write('Введите второе число: ');
  readln(num2);
  
  if (num1 * num2) > 0 then
  begin
    result := num1 - num2;
  end
  else
  begin
    result := num1 / num2;
  end;
  
  writeln('Результат: ', result);
  
end.

При запуске этой программы, пользователь будет приглашен ввести два числа с клавиатуры. Затем программа выполнит необходимые вычисления и выведет результат на экран. Если произведение чисел положительно, то будет выведена их разность, а если произведение отрицательное или равно нулю, то будет выведено их деление.