Question

xin mọi người giúp em với ạ

2. Tính Điểm Trung Bình với công thức tính: (KTTX+KTGK*2+KTCK*3)/6. Hãy nhập điểm từbàn phím điểm KTTX, KTGK, KTCK. Dựa vào Điểm Trung Bìnhmà in ra xếp loại như sau: -Nếu ĐTB>= 8.0 thì xếp loại Giỏi-Nếu ĐTB>= 6.5 thì xếp loại Khá-Nếu ĐTB>= 5.0 thì xếp loại TB-Nếu ĐTB>= 3.5thì xếp loại Yếu-Nếu ĐTB< 3.5thì xếp loại Kém

Làm trên Free Pascal

Answer 1

uses crt;

var a,b,c,tb:real;

begin

clrscr;

readln(a,b,c);

tb:=(a*2+b*2+c);

if (tb>=45) then writeln('Dau lop chuyen')

else if (tb>=40) then writeln('Dau lop tich hop')

else if (tb>=30) then writeln('Dau lop thuong')

else writeln('Rot');

readln;

end.