一个很简单的程序
program posneg;
var
no : integer;
begin
Write('Enger a number:');
readln(no);
if (no > 0) then
writeln('You enter Positive Number(正数)')
else
if (no < 0) then
writeln('You enter Negative number(负数)')
else
if (no = 0) then
writeln('You enter Zero');
readln;
end.
网友评论