Question

Помогите пожалуйста Pascal Ввести два числа. Если сумма этих чисел нечетная, найти произведение, в противном случае, найти частное этих чисел.

Answer 1

var x,y : integer;

begin

readln( x, y );

if ((x+y) mod 2 ) = 0 then writeln(x div y)

else writeln(x * y);

end.

Answer 2

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

pascalCopy code
program Calculate;
var
  num1, num2, sum: integer;
  result: real;
begin
  writeln('Введите первое число:');
  readln(num1);

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

  sum := num1 + num2;

  if sum mod 2 <> 0 then
  begin
    result := num1 * num2;
    writeln('Сумма чисел нечетная. Произведение равно: ', result);
  end
  else
  begin
    result := num1 / num2;
    writeln('Сумма чисел четная. Частное равно: ', result);
  end;

  readln;
end.

В этой программе сначала пользователю предлагается ввести два числа. Затем программа находит их сумму и проверяет, является ли сумма чисел нечетной (проверка sum mod 2 <> 0). Если сумма нечетная, то программа находит и выводит произведение чисел (num1 * num2). Если же сумма четная, программа находит и выводит частное чисел (num1 / num2).

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