Question

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

Answer 1

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

Answer 2

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

Answer 3

типа var, readln

Answer 4

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

Answer 5

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.

Answer 6

спасибо

Answer 7

// 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.

Answer 8

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

Answer 9

Нет, Дельфи не понимает тернарный оператор. Только та версия, которая написана.

Answer 10

В Дельфи надо писать if x>y then z:=x-y else z:=y-x+1;