bài 1:

uses crt;

var t,v,a: byte;

dt: real;

begin

clrscr;

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

write('nhap diem van:'); readln(v);

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

dtb:=t*2+v*2+a;

writeln('diem thi la:',dt:4:3);

if dt>=45 then writeln('dau lop chuyen');

if dt>=40 then writeln('dau lop tich hop');

if dt>=30 then writeln('dau lop thuong');

if dt<30 then writeln('rot');

readln

end.

bai 2:

uses crt;

var kttx,ktgk,ktck: byte;

dtb:real;

begin

clrscr;

write('nhap diem kttx:'); readln(kttx);

write('nhap diem ktgk:'); readln(ktgk);

write('nhap diem ktck:'); readln(ktck);

dtb:=(kttx+ktgk*2+ktck*3)/6;

writeln('diem trung binh la:',dtb:4:3);

if dtb>=8 then writeln('xep loai Gioi');

if (dtb>=6.5) and (dtb<8) then writeln('xep loai kha');

if (dtb>=5) and (dtb<6.5) then writeln('xep loai trung binh');

if (dtb>=3.5) and (dtb<5) then writeln('xep loai yeu');

if dtb<3.5 then writeln('xep loai kem');

readln

end.

Xin hay nhất ạ :3

Câu 1 :

uses crt;

var a, b, c, d : real;

begin

clrscr;

write('nhap diem toan, van, anh van : ');readln(a, b, c);

d := a * 2 + b * 2 + c;

if d >= 45 then writeln('dau lop chuyen');

if (d < 45) and (d >= 40) then writeln('dau lop tich hop');

if (d < 40) and (d >= 30) then writeln('dau lop thuong');

if d < 30 then writeln('rot');

readln

end.

Câu 2 :

uses crt;

var a, b, c, d : real;

begin

clrscr;

write('nhap diem kttx, ktgk, ktck : ');readln(a, b, c);

d := (a + b * 2 + c * 3) / 6;

if d >= 8 then writeln('xep loai gioi');

if (d < 8) and (d >= 6.5) then writeln('xep loai kha');

if (d < 6.5) and (d >= 5.0) then writeln('xep loai trung binh');

if (d < 5.0) and (d >= 3.5) then writeln('xep loai yeu');

if d < 3.5 then writeln('xep loai kem');

readln

end.