Даны действительные числа x,y. Вычислить z

Question

Даны действительные числа x,y. Вычислить z

---

Answer 1

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var x,y,z:real; Read(x,y); z:=x>y?x-y:y-x+1; Writeln(z)
end.

Comments

а в делфи так же вводить?

Answer 2

Z>0, т.к. если X>У, выражение X-У>0
и если X<У, то выражение У-Х+1>0
И даже если У=Х, то выражение У-Х+1>0

Comments

в паскале как

---

Так и надо было писать, что тебе программа нужна, сейчас :)

---

там же надо команды писать

---

типа var, readln

---

Я тебя понял, подожди минутку, я составлю программу.

---

program XXX;
var x, y, z:real;
begin
readln(x);
readln(y);
if x>y then
z:=x-y
else
z:=y-x+1;
Writeln(z);
end.

---

спасибо