Question

Информатика в Pascal вычислить: помощь 6 7 заданий

Answer 1

Задача №6:

var

       a, b: Integer;

       

begin

       Read (a, b);

       

       if a mod 2 = 1 then

               WriteLn (a + b)

       else

               WriteLn (a * b)

end.        

Задача №7:

var

       x, y: Real;

       

begin

       Read (x);

       

       if x > 0 then

               y := x - 12

       else

               if x < 0 then

                       y := sqr (x)

               else

                       y := 5;

               

       WriteLn (y)                

end.