Question

Viết chương trình nhập vào 1 số a và kiểm tra xem số đó là số âm hay số dương?

Answer 1

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

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

else if a<0 then writeln(a,' la so am')

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.

Answer 2

program soamsoduong;

uses crt;

var

a:integer;

begin

clrscr;

write('nhap vao a:');readln(a);

if a>0 then write('so am la',a)

else write ('so duong la ', a)

readln; 

end.