Question

Câu 1 viết phương trình vào nhập số nguyên khác 0 cho biết số vừa nhập là âm hay dương.Sau đó in kết quả lên màn hình

Answer 1

uses crt;

var n:integer;

begin

clrscr;

write('Nhap N=');readln(n);

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

else write('So ',n,' la so am');

readln;

end.

Answer 2

uses crt;

var a:integer;

begin

clrscr;

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

if a<>0 then

begin

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

else writeln(a,' la so am');

end

else writeln('vui long nhap lai');

readln;

end.