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

2013-10-24T14:38:41+04:00
Var a,b,c,y,x:real;
begin
writeln('ВВЕДИТЕ ЗНАЧЕНИЕ x:',x);
readln(x);
a:=5;
b:=3;
c:=1;
y:=a*cos(b*x)+c;
writeln('y=',y);
end.