Допишите программу в Pascal и определите значения переменной Z после выполнения...

Question

Допишите программу в Pascal и определите значения переменной Z после выполнения программы. Запишите на листочке чему равен z. x := 5; y := 24; y := y - 2*x; if (x > y) and (y < 0) then z := x + y else z:= x - y;

Answer 1

Ответ:

program Project2;

{$APPTYPE CONSOLE}

uses

 SysUtils;

   var y,x,z:integer;

   const

   a=25;

   b=7;

begin

 x := 5;

y := 24;

y := y - 2*x;

if (x > y) and (y < 0) then

z := x + y

else z:= x - y;

 write (z);

end.

Ответ:  -9

Объяснение: