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.

Question

Аназий

17 декабря, 19:37

+4

Ответы (1)

Знаете ответ на вопрос?

Сузуме · Answer 1

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

Else write (y,'-', x,'=', y-x)

Var x, y, z:integerBegin;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.