1 и 2 задача. Паскаль

Question

1 и 2 задача. Паскаль

---

Comments

Т.е. пункт 3 нужен, или то, что выше тоже?

Answer 1

Var x:integer;
f:real;
Begin
Writeln('Введите значение переменной x');
Readln(x);
If x<10 then<br>f:=(1-x)/sqr(x)
Èlse
If x>=10 then
f:=sqrt(2*x);
Writeln('Значение выражения ', f:0:3);
End.