Question

Паскаль!!!!!! Вводятся Х и Y. Если хотя бы одно из этих чисел положительно, то найти их произведение. Иначе – найти их сумму. И желательно блок схему

Answer 1

X, y: integer;
begin
readln(x, y);
if (x > 0) or (y > 0)
 then
writeln(x * y)
else
writeln(x + y);
end.
С рисованием туго тут уж сам.

Answer 2

Для решения данной задачи на языке Паскаль можно использовать условный оператор if-else. Вводятся два числа X и Y, и в зависимости от их знаков мы будем находить либо их произведение, если хотя бы одно из чисел положительно, либо их сумму, если оба числа отрицательны или равны нулю.

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

program MultiplyOrAdd;
var
  X, Y, Result: Integer;
begin
  // Вводим значения X и Y
  Write('Введите значение X: ');
  Readln(X);
  Write('Введите значение Y: ');
  Readln(Y);

// Проверяем условие и выполняем соответствующее действие
  if (X > 0) or (Y > 0) then
    Result := X * Y
  else
    Result := X + Y;

// Выводим результат
  Writeln('Результат: ', Result);
end.

Эта программа сначала запрашивает у пользователя значения X и Y, а затем проверяет условие: если хотя бы одно из чисел положительно, то производится их умножение и результат сохраняется в переменной Result. В противном случае, когда оба числа отрицательны или равны нулю, производится их сложение и результат также сохраняется в переменной Result. Наконец, программа выводит полученный результат.

Блок-схема:

+-------------------+
| Ввод X и Y        |
+-------------------+
         |
         v
+-------------------+
| X > 0 или Y > 0?  |
+-------------------+
         |
         v
+-------------------+
| X * Y             |
+-------------------+
         |
         v
+-------------------+
| Вывод результата  |
+-------------------+

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