Câu 6: Viết CT nhập vào 1 số nguyên khác 0. Cho biết bạn vừa nhập số nguyên đó là số âm hay số dương , hiển thị kết quả lên màn hình. Câu 7: Viết CT nhập vào 2 số tự nhiên m,n & thông báo “ đúng”, nếu m,n cùng tính chẵn, lẻ. Ngược lại thì thông báo “sai”. Em hãy chỉnh sửa bài tập sau cho hoàn chỉnh. Program chan_le. Uses crt Var m,n :integer; Begin clrscr; write(‘ nhap m=‘) readln(m); write(‘ nhap n=‘) readln(n); if (m+n) mod 2 <> 0 then writeln(’dung’); else writeln(’sai’) Readln; End

Câu 6:

program bai_giai;

uses crt;

var n:longint;

begin

clrscr;

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

if( n mod 2=0)then write('n la so chan')else write('n la so le');

readln

end.

Câu 7:

Program chan_le;
Uses crt;
Var m,n :integer;
Begin
  clrscr;
  write( 'nhap m=');readln(m);
  write( 'nhap n=');readln(n);
  if (m+n) mod 2 <> 0 then writeln('dung')else writeln('sai');
Readln;
  End.

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.