Ответы и объяснения

2014-02-13T21:54:08+04:00
Var x,y:real;
begin
  readln (x);
  y:=2*sin(x)+0.5;
  writeln (y);
end.
Лучший Ответ!
2014-02-13T21:54:41+04:00
Uses crt;
var x, y:real;
begin
write('x='); read(x);
y:=2*sin(x)+0.5;
write('y=',y);
end.