Пожалуйста составьте программу нахождения, очень. Срочно нужно.

Question

Пожалуйста составьте программу нахождения, очень. Срочно нужно.

---

Answer 1

На языке Pascal

var

n,x:real;

begin

readln(n);

if n=10 then x:=(n+sqrt(n))/(2*n) else

if n

x:=(5*n)/3;

writeln(x)

end.