Tin học Chương trình Pascal tính tổng điểm

[Thảo Nguyên 24]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Tính tổng điểm 3 môn toán lý hóa. Nếu lớn hơn hoặc bằng 18 thì đậu, còn khômg thì rớt.
Giúp mình với! Mai thi rồi T.T

 

[Quang Đông]

Đầu tiên bạn nhập 3 môn toán, lí, hóa. Sau đó bạn dùng lệnh if - then - else
Bạn tham khảo:

program tinhtong;
uses crt;
var t, l ,h: real;
begin
clrscr;
  write('Nhap diem toan: '); readln(t);
  write('Nhap diem li: '); readln(l);
  write('Nhap diem hoa: '); readln(h);
  If t+l+h >=18 then write('Ban da dau') else write('Ban da rot');
end.