Question

Помогите решить пожалуйста! Надо составить программы на паскале для того что ниже с оператором IF

Answer 1

Ответ:

1)

begin

 var x:= readreal('Введите число x');

 if x>0 then

     x := x-12

   else

     if x<0 then

         x := sqr(x)

       else

         x := 5;

x.Print          

end.

2)

const  

 P = 3.14;

begin

 var x:= readreal('Введите число x');

 if x>P then

     x := ln(sqr(x)-P)

   else

     if x<0 then

         x := sqrt(sqr(x)+0.1)

       else

         x := sin(x)+sqr(x);

 x.Print

end.