Question

Задачи по информатике написать задачу в паскале. Условия такие: "Даны целые числа х и у. Если х>у, то необходимо найти произведение этих чисел, иначе их частное". Смог написать только так, чтобы находилось произведение, а как сделать "Иначе" я не понимаю. Вот, посмотрите: Program zadacha; var x,z,y : integer; begin readln (x,y); If x>y then z:=x*y writeln(z); end.

Answer 1

Program zadacha;

var x,z,y : integer;

begin

readln (x,y);

If x>y then

begin

z:=x*y;

writeln(z);

end

else

begin

z:=x/y;

writeln(z);

end;

end.

else - на русском означает иначе . Можно было переводчиком просто воспользоваться.

Answer 2

Program zadacha;

var x,y : integer;

z:real;

begin

readln (x,y);

If x>y then

begin

z:=x*y;

writeln('x*y = ',z);

end

else

begin

z:=x/y;

writeln('x/y = ',z);

end;

end.

else - иначе. Перед этим оператором не ставится точка с запятой.

Answer 3

Вот пример решения задачи на языке Pascal:

program zadacha;
var
  x, y, result: integer;
begin
  writeln('Введите два целых числа:');
  readln(x, y);
  
  if x > y then
  begin
    result := x * y;
    writeln('Произведение чисел x и y равно: ', result);
  end
  else if y <> 0 then
  begin
    result := x div y;
    writeln('Частное чисел x и y равно: ', result);
  end
  else
    writeln('Ошибка: деление на ноль недопустимо!');
end.

В этом примере, после ввода двух целых чисел `x` и `y`, программа проверяет условие `x > y`. Если это условие выполняется, то программа находит произведение чисел `x` и `y` и выводит его на экран. Если условие не выполняется, программа проверяет условие `y <> 0`. Если это условие выполняется, то программа находит частное чисел `x` и `y` и выводит его на экран. Если оба условия не выполняются, программа выводит сообщение об ошибке, так как деление на ноль недопустимо.

Примечание: В этом примере используется оператор `div` для целочисленного деления. Если вы хотите получить результат с плавающей запятой, вы можете использовать оператор `/` вместо `div`.