Question

Нужны ответы на 3 задания (см. фото)
Ответы должны быть представлены в виде кода Pascal.

Answer 1

ЗАДАЧА №1

var

       x, y: Real;

       

begin

       Read (x);

       

       if x > 10 then

               y := Pi - 2 * x

       else

               y := 1 - x;

       

       Write (y)

end.      

ЗАДАЧА №2

var

       a, b: Real;

       

begin

       Read (a, b);

       

       Write (sqr (min (a, b)), ' ', max (a, b) * max (a, b) * max (a, b))

end.        

ЗАДАЧА №3

var

       a, c: Word;

       

begin

       Read (a);

       c := 0;

       

       if a div 100 < 5 then

               Inc (c);

       if (a div 10) mod 10 < 5 then

               Inc (c);

       if a mod 10 < 5 then

               Inc (c);

       

       if c > 0 then

               Write ('содержит цифры меньше 5')

       else

               Write ('не содержит цифры меньше 5')

end.