Program n1; var x,y: real; begin readln(x); if x<0 then y:=-x else begin if x<1 then y:=x else begin if x<=2 then y:=1 else y:=-x+3; end; end; write(y); end.
2 votes Thanks 1
WVWO
Можно спросить?Заранее прошу прощения за столь может глупый вопрос,но объесните мне пожалуйста,почему 2 раза end повторяется перед окончанием саой программы?
Answers & Comments
Verified answer
Program n1;var x,y: real;
begin
readln(x);
if x<0 then y:=-x else begin
if x<1 then y:=x else begin
if x<=2 then y:=1 else y:=-x+3;
end;
end;
write(y);
end.