Паскальдан есеп шығарып бересіздер ма? IF шартты операторын пайдаланып есеп шығару.

Question

Функция.

Бастапқы мәндері.

a=0.234*10²

x=0.475

Answer 1

Program esep123;

var y,x,a:real;

Begin

write('x= ');

readln(x);

write('a= ');

readln(a);

if (a<x) then y:=exp(0.2)+sqrt(a+x)

else if (a=x) then y:=(a+x)*exp(abs(sin(x))*ln(1/3))

         else y:=sqrt(abs(a+x));

write('Y= ',y);

End.