Вопрос ** 50 балов. Напечатайте программу ** языке Turbo Pascal,заранее спасибо

Question

Вопрос на 50 балов. Напечатайте программу на языке Turbo Pascal,заранее спасибо

---

Answer 1

Var 
f, x: Real;
begin 
write('X = '); 
Readln(x); 
if Abs(x) <= 1 then f:=Abs(x)  <br>else if Abs(x) <= 2 then f:=Sqr(x)  <br>else f:=4; 
Writeln('F(x) = ', f:4:2); 
Readln;
end.