Решить через pascal abc y=lnx+6x^3 cos(x+9)

Aru212 Aru212    2   26.09.2019 18:00    0

Ответы
xLAFFYx xLAFFYx  08.10.2020 20:45
Var
  x,y:real;
 
begin
  Write('x='); Read(x);
  y:=Ln(x)+6*x*x*x+Cos(x+9);
  Writeln('y = ',y)
end.
ПОКАЗАТЬ ОТВЕТЫ
Игнор1 Игнор1  08.10.2020 20:45
Var x,y:real;

begin
  x:=1.0;
  while x<=10 do begin
    y:=ln(x)+6*x*x*x*cos(x+9);
    writeln(x,' ',y);
    x:=x+1;
  end;

end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика