Всі умови | Умова: Дано дійсне число a. Функція f(x), графіки якої представлений на мал. 1, a - 1, г, обчислити f(a).
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №58)
program pr58_3;
var
a, f : real;
begin
write('a = '); readln(a);
if (a <= 0) then f := abs(a + 1)
else f := abs(a - 1);
writeln('f = ', f:5:2);
readln;
end.