Viết chương trình nhập vào một số coi số đó là số âm hay dương

1 câu trả lời

uses crt;

var n:integer;

begin

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

if n=0 then (n,' ko phai la so am, cung ko phai so duong);

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

if n<0 then write(n,'la so am');

readln

end.

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