您所在位置：主题：[讨论]我的程序对不对?
灰鼠大侠
[专家分：0] 发布于 2005-04-30 12:19:00
Program xmc110(input,output);
var a,b:integer;
begin
readln(a);
if a<1 then b:=a*(-1);
if a>1 then b:=a;
writeln(b);
end.
[em4]
var a,b:integer;
begin
readln(a);
if a<1 then b:=a*(-1);
if a>1 then b:=a;
writeln(b);
end.
[em4]
