Bài 1: Viết chương trình nhập điểm trung bình môn Toán của 2 bạn Hoa và Lan, in ra màn hình kết quả so sánh điểm trung bình của 2 bạn.
Bài 1: Viết chương trình nhập điểm trung bình môn Toán của 2 bạn Hoa và Lan, in ra màn hình kết quả so sánh điểm trung bình của 2 bạn.
uses crt;
var lan,hoa: real;
begin
clrscr;
write (‘nhap diem trung binh cua ban Lan: ‘); readln (lan);
write (‘nhap diem trung binh cua ban Hoa: ‘); readln (hoa);
if lan>hoa then writeln(‘diem trung binh cua lan lon hoa’);
if lan<hoa then writeln(‘diem trung binh cua lan be hoa’);
if lan=hoa then writeln(‘diem trung binh cua lan bang hoa’);
readln;
end.