Question

Viết chương trình nhập vào điểm LT và TH. Tính điểm trung bình và xét kết quả như sau: nếu TB>=5 thì đậu ngược lại rớt.

Answer 1

Var dtb:real;
Begin
 Repeat
  Writeln('Nhap diem trung binh cua ban vao day:'); Readln(dtb);
 Until (0<=dtb) and (dtb<=10);
If dtb>=5 then writeln ('Chuc mung,ban da dau!') else if dtb<5 then writeln('Xin chuc mung, ban da tach!');
Readln
 End.
*Dòng lệnh in đậm có nghĩa là khi bạn nhập dtb mà không nằm trong phạm vi từ 0->10, nó sẽ bắt bạn phải nhập lại cho đến khi đúng phạm vi. Vd như dưới đây: (Good luck for you :D :D )

Answer 2

uses crt;

var lt,th:real;

begin

clrscr;

write('Nhap diem LT:'); readln(lt);

write('Nhap diem TH:'); readln(th);

if (lt+th)/2>=5 then writeln('Dau')

else writeln('Rot');

readln;

end.