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.