Viet chuong trinh xet hoc luc cua em biet rang:diem trung binh lon hoac bang 8.0thi xep loai gioi,con lai xep loai kha.Voi diem trung binh cua 3 mon Toan,Van,Tin duoc nhap tu ban phim.
a) Tinh diem trung binh cua 3 mon do.
b )Xet hoc luc cua em
Giup mk voi can gap.mai thi roi😓
a)
Program bt;
Var a,b,c,tb:real;
Begin
Writeln('nhap a:=');
Readln(a);
Writeln('nhap b:=');
Readln(b);
Writeln('nhap c:=');
Readln(c);
tb:=a+b+c/3;
Writeln('diem trung binh cua ba mon:=',tb);
Readln;
End.
b)
Program bt;
Var tb:real;
Begin
Writeln('nhap tb:=');
Readln(tb);
if tb >=8,0 then writeln('hoc luc gioi') else writeln('hoc luc kha');
Readln;
End.