Question

СРОЧНО ПОМОГИТЕ ПОЖАЛУЙСТА!!!
ДАЮ 40 БАЛЛОВ


Составьте программу для решения задачи, на паскаль​

Answer 1

program FF;

var F, b: real;

begin

write('Enter b:'); read(b);

if b>4 then

F:=sqrt(b-4)

else F:=cos(2*b+1);

writeln(F);

end.