Мынаны Паскаль тіліне аударып берінізші (Информатика) Өтінем

Question

у = ( sin 2 x + cos 2 x) / х 3

Answer 1

Program esep1;

Var x,y:integer;

Begin

Readln(x);

y:=(sqr(sin(x))+sqr(cos(x)))/(sqr(x)*x)

Writeln(y);

End.
Дұрыс па?

Comments

Дұрыс, дұрыс.

Answer 2

Program esep ;

Uses crt ;

Var x, y:integer;

Begin

Clrscr;

Readln(x, y) ;

Y:=(sin*2*x+cos*2*x) /x*3

Writeln('y');

End.