Question

Допишите программу определения значения функции. Помогите,пожалуйста!Срочно нужно!Извините за галимое качество. f(х) = 0,при х меньше или равно 2 и х больше или равно 5, 2*х,при 2 < x< 5 с использованием оператора case. SOS!Спасите меня кто-нибудь.

Answer 1

program task;

var 
x, f: real; 
t: boolean;

begin 
readln(x); 
t := (x > 2) and (x < 5); 
case t of    
true: f := 2 * x;   
false: f := 0; 
end; 
write(f);
end.