Question

[Thanh Tuyền]

Câu 1: Viết chương trình tìm số lớn nhất trong 4 số nguyên nhập vào từ bàn phím.

Câu 2: Viết chương trình tính điểm trung bình của ba môn học Văn , Toán, Lý theo hệ số: Văn, toán hệ số 2; lý hệ số 1 và xếp hạng học tập theo tiêu chuẩn sau:

- Dưới 5 điểm: Kém

- Từ 5 đến dưới 7 điểm: Trung bình

- Từ 7 đến dưới 8 điểm: Khá

- Trên 8 điểm: Giỏi

Answer 1

[Nguyễn Lê Phước Thịnh]

câu 1:

uses crt;

var a,b,c,d,ln:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

if ln<d then ln:=d;

writeln('so lon nhat la: ',ln);

readln;

end.

câu 2:

uses crt;
var v,t,l:integer;
tb:real;
begin
clrscr;
write('nhap diem van:'); readln(v);
write('nhap diem toan:'); readln(t);
write('nhap diem ly:'); readln(l);
tb:=(v*2+t*2+l)/5;
if tb<5 then writeln('kem');
if (tb>=5) and (tb<7) then writeln('trung binh');
if (tb>=7) and (tb<8) then writeln('kha');
if tb>=8 then writeln('gioi');
readln;
end.