Question

HELP ME!
4.4 Допишите команду для определения функции у= 1/х при известном х:
4.5. Напишите программу определения значения функции
f(х) = 0 при х < или = 2 и х > или равно 5 ,
2х при 2 < х < 5
с использованием составного условия.

Answer 1

var  x, y: real;
begin 
readln(x); 
if x = 0 then    
writeln('На ноль делить нельзя!') 
else begin   
y := 1 / x;   
writeln('1/'+x+'='+y); 
end;
end.

==============================

program task;

var  
x, f: real;  

begin  
readln(x);  
if (x > 2) and (x < 5) then
f := 2 * x
else f := 0;  
write(f);
end.