Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите написать программу напаскале абс

Ответ оставил Гость

Var x,f:real; 
begin 
writeln(Введите значение x –); 
read(x); 
if x<=0 then f:=-x else 
if (x>0) and (x<2) then f:=sqr(x) else f:=4; 
writeln(Значение функции f(x) = ,f); 
end.