Ответ №1
Я так понял:
var y, x :integer;
begin
readln(x);
if x<=0 then y := 3;
if 0<x<6 then y:=-x+3;
if x>=6 then y:=-3;
writeln(y);//Ну это уже красота:)
end.
Ответ №2
//Pascal
var y,x:integer;
begin
readln(x);
if x<=0 then y:=3;
if (x>0)and(x<6) then y:=3-x;
if x>=6 then y:=-3;
writeln(y);
end.
Знаете ответ?