Question

Viết chương trình nhập điểm Văn Toán Anh . TÍnh điểm trung bình. In kết quả ra màn hình thông báo đoạt loại giỏi , khá nếu đủ điều kiện

ĐIều kiện đoạt lại giỏi đtbình lớn hơn hoặc bằng 8 ko môn nào dưới 6,5

ĐIèu kiện đoạt loại khá : đtbình từ 6,5 đến 7,9 ko môn nào dưới 5

Answer 1

Program bai1;

uses crt;

var DTB: real;

v,t: integer;

begin

clrscr;

repeat

write('nhap diem van =' ); readln(v);

write('nhap diem toan ='); readln(t);

until (v <= 10 ) and ( v >=0) and (t <=10) and (t >=0);

DTB:=(v+t) / 2;

writeln(' diem trung binh hai mon =' ,DTB:4:2);

if (DTB >= 8.0) and (v >=6.5 ) and (t >=6.5) then

writeln('dat loai gioi');

if (DTB >=6.5) and ( v >=5 ) and (t >=5) then

writeln('dat loai kha ') else

writeln('khong dat duoc loai gioi va kha ');

readln;

end.

Answer 2

duong nguyenvan giúp mình