Quảng cáo
1 câu trả lời 1070
program diemtb;
Uses Crt;
var toan, van, tb : real;
Begin
clrscr;
write('Nhap diem mon Toan: ');
readln(toan);
write('Nhap diem mon Van: ');
readln(van);
tb:= (toan+van)/2;
writeln('Diem trung binh 2 mon Toan va Van la: ', tb:2:1);
write('Ket qua: ');
if (tb >=5) then
write('Dau')
else
write('Hong');
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
55468 -
Đã trả lời bởi chuyên gia
31401 -
Đã trả lời bởi chuyên gia
29946
Gửi báo cáo thành công!
