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.

Answer 1

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

Answer 2

To calculate the value of z instead of just displaying it as 0, you need to perform the subtraction operation and assign the result to the variable z. In the provided pseudo-code, the variable z is not being assigned any value after the subtraction. Here's the corrected version of the code:

pascalCopy code
Var
  x, y, z: integer

Begin
  Read(x);
  Read(y);
  
  If x > y then
    z := x - y
  Else
    z := y - x;

  Write('z = ', z);
End.

In this corrected version, the code first reads the values of x and y. Then, it checks whether x is greater than y. If it is, it subtracts y from x and stores the result in z. If x is not greater than y, it subtracts x from y and stores the result in z. Finally, the code displays the value of z.

With this change, if you input 30 for x and 20 for y, the program will output:

makefileCopy code
z = 10

This indicates that the result of 30 - 20 is 10.