Объяснение:
program ghh;
Var x:integer;
begin
Readln(x) ;
If x>2 then
Writeln('y = ', x-2);
If x=2 then
Writeln('y = ', 2-x);
If x=1 then
If x<=0 then
Writeln('y = ', 2 * x) ;
end.
Объяснение:
program ghh;
Var x:integer;
begin
Readln(x) ;
If x>2 then
Writeln('y = ', x-2);
If x=2 then
Writeln('y = ', 2-x);
If x=1 then
Writeln('y = ', 2-x);
If x<=0 then
Writeln('y = ', 2 * x) ;
end.