Viết chương trình nhập vào điểm toán và điểm văn giữa kì 1 của em. In ra màn hình kết quả so sánh điểm môn nào cao hơn.
2 câu trả lời
program diemgiuaki;
uses crt;
var Van,Toan: real;
begin
clrscr;
write('Nhap diem Van giua ki: '); readln(Van);
write('Nhap diem Toan giua ki: '); readln(Toan);
if Van > Toan then writeln('Diem van giua ki cao hon diem Toan');
if Van < Toan then writeln('Diem Toan giua ki cao hon diem Van');
if Van = Toan then writeln('Diem van va diem Toan giua ki bang nhau');
readln;
end.
program bai_Giai;
uses crt;
var t,v:longint;
begin
clrscr;
write('nhap diem toan:');readln(t);
write('nhap diem van:');readln(v);
if(t>v)then write('toan cao hon')else write('van cao hon');
if(t=v)then write('hai mon bang nhau');
readln
end.