Question

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

1. Tính điểm Trung Bình Cả Năm môn Tin Học với công thức tính: (HK1+HK2*2)/3. Hãy nhập điểm từ bàn phím điểm HK1, HK2. (3 điểm) 

2. Dựa vào Điểm Trung Bình môn Tin Học mà in ra xếp loại như sau: (4 điểm) 

- 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 < 5.0 thì xếp loại Yếu 

Làm trong Free Pascal

Answer 1

uses crt;

var a,b,tb:real;

begin

clrscr;

readln(a,b);

tb:=(a+b*2)/3;

writeln(tb:4:2);

if (tb>=8) then writeln('gioi')

else if ((tb>=6.5) and (tb<8)) then writeln('Kha')

else if ((tb>=5) and (tb<6.5)) then writeln('Trung Binh')

else writeln('Yeu');

readln;

end.