информатика

Помогите составить программу!

Оставить ответ
2

Ответ №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.

Знаете ответ?