Viết chương trình Pascal nhập điểm Toán, Lí và Hóa từ bàn phím. Tính trung bình cộng điểm 3 môn đó. Nếu điểm trung bình lớn hơn hoặc bằng 8 thì in ra màn hình câu "Chúc mừng bạn".

2 câu trả lời

program sk;

uses crt;

var a, b, c, tb : real;

begin

clrscr;

write('nhap diem toan :');readln(a);

write('nhap diem li :');readln(b);

write('nhap diem hoa :');readln(c);

tb := (a + b + c)/3;

writeln('diem trung binh ba mon la :', tb:4:2);

if tb >= 8 then writeln('Chuc mung ban');

readln

end.

uses crt;
var t,l,h:real;

begin 
clrscr;
   write('Nhap diem toan li hoa: ');readln(t,l,h);
   if (t+l+h)/3>8 then writeln('Chuc mung ban');
readln
end.