hãy tạo chương trình nhập vào 1 số bất kỳ và kiểm tra số vừa nhập là âm hay dương

2 câu trả lời

program de3;
uses crt;
var a:integer;
Begin
    clrscr;
    write('a = ');readln(a);
    if a>=0 then write('a la so duong')
    else write('a la so am');
    readln
End.

program bai_giai;

uses crt;

var n:longint;

begin

clrscr;

write('nhap n:');readln(n);

if(n>0)then write('n la so duong')else write('n la so am');

readln

end.

Câu hỏi trong lớp Xem thêm