Реализовать функцию, с помощью ветвления
g=
ЯЗЫК PASCAL ABC
Если я правильно понял g = sin(2*x) для x>=0 иначе g = 5* x², тогда может получиться такой код:
var x,g:real;
begin
writeln(Введите х);readln(x);
if x>0 then g:=sin(2*x) else g:=5*sqr(x);
writeln(g);
end.
Оцени ответ
