Задачи по информатике написать задачу в паскале. Условия такие: "Даны целые числа х и у....

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,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 - иначе. Перед этим оператором не ставится точка с запятой.

Comments

Почему real? Real - это же вещественное число, а нужно натуральное

---

Целое

---

извините, не стал заморачиваться, исправлю. Дело в том что во второй части у нас идёт деление, нужно переменной "z" задать тип real.

Answer 2

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 - на русском означает иначе . Можно было переводчиком просто воспользоваться.

Comments

вы допустили ошибку в ответе.