Var x,y,z:integer Begin; Read (x); Read (y); If x>y then write (x,'-',y,'=',z) Else write...

Question

Var x,y,z:integer Begin; Read (x); Read (y); If x>y then write (x,'-',y,'=',z) Else write (y,'-',x,'=',z) End. Я записываю числа 30 20 компьютер решает как 30-20=0 Подскажите как сделать так чтоб z находило а не писало 0.

Comments

Вместо z написать в первом случае x-y, во втором - y-x

Answer 1

If x>y then write (x,'-',y,'=',x-y)
Else write (y,'-',x,'=',y-x)

Comments

ты не считала переменную z, ты её просто задала. Можно написать z:=x-y и потом write(z)