Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Trí Anh Tú
Kiều Vũ Linh
20 tháng 4 2022 lúc 15:02

Var m1,m2,m3,tb:real;

Begin

Write('Nhap diem mon 1 = ');readln(m1);

Write('Nhap diem mon 2 = ');readln(m2);

Write('Nhap diem mon 3 = ');readln(m3);

tb:=(m1+m2+m3)/3;

If (tb>=5) and (m1>=4) and (m2>=4) and (m3>=4) then write('Ket qua: Dau')

Else write('Ket qua: Rot');

Readln;

End.


Các câu hỏi tương tự
Nguyễn Thái Phong
Xem chi tiết
hà vy
Nguyễn Quang Đạt
Xem chi tiết
Văn Công Sỹ
Xem chi tiết
nguyễn minh hải
Xem chi tiết
Nguyễn Quang Bách
Xem chi tiết
NAMELESS
Xem chi tiết
Khánh Huyền Phan Thị
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết