Напишите программу. В Паскале! Дана система: y={1,если x<0 {x+3, если 0<=x<10 {x/2, если...

Question

Напишите программу. В Паскале!
Дана система:
y={1,если x<0<br> {x+3, если 0<=x<10<br> {x/2, если x>=10

Answer 1

Var x,y:real;
begin
readln(x);
if x<0 then y:=1<br>else if (x>=0) and (x<10) then y:=x+3<br>else if x>=10 then y:=x/2;
writeln(y);
end.