Составьте программу вычисления значений функция у по формуле y=3sinx+2x
Var x: real; Begin WriteLn('y = 3Sin(x) + 2x'); Write('Введите значение икс: ');ReadLn(x); WriteLn('y = ',3*Sin(x)+2*x); End.
спасибо