Program z1;
var x, y: integer;
begin
write('введи x '); readln (x);
if x>=0 then y:=x else y:=-x;
writeln ('y=', y);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Program z1;
var x, y: integer;
begin
write('введи x '); readln (x);
if x>=0 then y:=x else y:=-x;
writeln ('y=', y);
end.