Question

Turbo Pascal Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найдите частное этих чисел? срочно. За ранее спасибо

Answer 1

Var a,b:integer;
c:real;
begin
readln(a,b);
if ((a+b) mod 2 = 0) then c:= a*b
else c:= a/b;
writeln(c);
readln();
end. 

Answer 2

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

sqlCopy code
program EvenOdd;

var
  num1, num2, result: integer;

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

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