Question

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

Answer 1

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