Câu 1 : Viết chương trình nhập vào điểm TBM của An. Cho biết bạn An đậu hay rớt. Biết rằng TBM từ 5.0 trở lên là đậu, dưới 5.0 là rớt. Câu 2 : Viết chương trình nhập vào số nguyên n. Kiểm tra xem n là số chẵn hay số lẻ.

Câu 1 :

uses crt;

var tbm : real;

begin

clrscr;

write('nhap diem trung binh mon : ');readln(tbm);

if tbm >= 5.0 then writeln('dau') else writeln('rot');

readln

end.

Câu 2 : 

uses crt;

var n : integer;

begin

clrscr;

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

if n mod 2 = 0 then writeln(n,' la so chan')

else writeln(n,' la so le');

readln

end.

bài 1

Uses crt;

var vuanat:real;

begin

clrscr;

write('nhap TBM cua An:');readln(vuanat);

if vuanat>=5 then write('An do') else ('An rot');

readln

end.

bài 2

uses crt;

var n:integer;

begin

clrscr;

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

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

readln

end.

XIN 5* CTLHN NHA!