Question

Пожалуйста напиши в Паскаль, заранее спасибо

Answer 1

var

 x: real;

begin

 read(x);

 write(3.5 * x + cos(x) / sin(2 * x) + exp(x))

end.

=========

var

 a, b, c, r, p, q: real;

begin

 read(a, b, c);

 r := (a+b) / c;

 p := Trunc(r);

 q := r - p;

 write(p, ' ', q);

end.