Question

Реализовать функцию, с помощью ветвления
g=$left { {{sin(2*x) if x textgreater 0} atop 5* x^{2} else }} right.$

ЯЗЫК PASCAL ABC

Answer 1

Если я правильно понял 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.

Answer 2

мне выдало ошибку. Нельзя преобразовать тип real к integer

Answer 3

Да, код исправил