Заданы два числа х, у. Переменной m присвоить значение 1, если ху и 0 если х=у.

Question

Заданы два числа х, у. Переменной m присвоить значение 1, если х<у, -1, если х>у и 0 если х=у.

Comments

Язык?

---

паскаль

---

Я так понимаю, необходимо вывести m?

---

похоже))

Answer 1

var x,y,m:integer;

BEGIN

readln(x,y);

if (x=y) then m:=0;

if (x>y) then m:=-1;

if (x

writeln(m);

end.