Question

viết chương trình tính tổng điểm của 4 môn và thực hiện xếp loại như sau: nếu tổng điểm \(\ge\)20 thì thông báo kết quả là đậu ngược lại là rớt

Answer 1

program tongdiem;

uses crt;

var a,b,c,d,T:byte;{thang điểm 10 nha}

begin

clrscr;

write('Nhap diem mon thu nhat');readln(a);

write('Nhap diem mon thu hai');readln(b);

write('Nhap diem mon thu ba');readln(c);

write('Nhap diem mon thu tu');readln(d);

T:=a+b+c+d;

if T>=20 then write('Ban da dau voi so diem la: ',T:10:2)

else write('Ban da rot');

readln

end.