Bài 1: Viết chương trình nhập 3 loại điểm ngữ văn, tin học, tiếng anh là số thực từ bàn phím của một học sinh. Sau đó tính trung bình cộng 3 môn. In ra màn hình ‘dat’ nếu trung bình cộng 3 môn từ 5 điểm trở lên ngược lại in ra màn hình ‘rot’.

Gửi bạn

uses crt;

var a,b,c, TB: real;

begin

writeln('Nhap diem Ngu Van'); readln(a);

writeln('Nhap diem Tin Hoc'); readln(b);

writeln('Nhap diem Tieng Anh'); readln(c);

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

writeln('Diem trung binh cua ba mon hoc la:',TB);

if tb >=5 then writeln('dat')

else writeln('rot');

readln

end.

code pascal:

program diem;

uses crt;

var t,v,a,tb:real;

begin

clrscr;

write('nhap diem ngu van= ');

read(v);

write('nhap diem tin hoc= ');

read(t);

write('nhap diem tieng anh= ');

read(a);

tb:=(v+t+a)/3;

if tb >=5 then write('dat') else write('rot');

readln;

readln

end.