Устный счет

Какое значение напечатается, если ввести число 2?

program one;

var x,y:integer;

begin

    read(x);

    if x<0 then y := abs(x) else y := x + 1;

    write(y);

end.

Ответ:

Какое значение напечатается, если ввести число 6?

program one;

var x,z : integer;

begin 

    read(x);

    if ODD(x) then z := x-1 else z := x+1;

    write(z);

end.

Ответ:

Какое значение напечатается, если ввести числа 1.862473 и  0.1262781?

program one;

var x,y : real;  z : integer;

begin 

    read(x, y); z := 0;

    if TRUNC(x)>ROUND(y) then if x*y>0

      then z := 0 else z := z+1 else z := z+2;

write(z);

end.

Ответ:

Какое значение напечатается, если ввести числа -1 и –1

program one;

var x,y,z : integer;

begin 

    read(x, y); z := (SQR(x)- y) * 3 - 10;

    if z<0 then x := ABS(z + x) else

       if x * y - 1 >0 then x := 7 else x := y;

    write(x);

end.

Ответ: