Viết chương trình nhập vào một số nguyên và cho biết số đó là số âm hay số dương?

2 câu trả lời

Program bai 1;

uses crt;

var a:integer;

begin

clrscr;

write('nhap so a =');

readln(a);

if a> 0 then writeln('a la so duong ') else

writeln('a la so am ');

readln;

end.

@Nguyenmill

Nếu a>0 thì đó là số dương, ngược lại nó là số âm