NT
KL
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.

Bình luận (0)

Các câu hỏi tương tự
NP
Xem chi tiết
HV
ND
Xem chi tiết
VS
Xem chi tiết
NH
Xem chi tiết
NB
Xem chi tiết
H24
Xem chi tiết
KT
Xem chi tiết
NH
Xem chi tiết
NH
Xem chi tiết