Question

Câu 6: Viết chương trình nhập vào một số a, kiểm tra a là số chẵn hay số lẻ. Câu 7: Viết chương trình nhập vào 2 số a và b. Nếu a lớn hơn b thì tính hiệu = a-b, ngược là hiệu sẽ là b-a Câu 8: Viết chương trình kiểm tra trong ba số a, b, c được nhập từ bàn phím xem số nào lớn nhất trong 3 số. Câu 9: Viết chương trình nhập vào một số a, kiểm tra a là số chẵn hay số lẻ. Câu 10: Nhập vào điểm 3 môn Toán, Lý, Hóa. Tính điểm trung bình (DTB) với Toán hệ số 2, Lý và Hóa hệ số 1. Rồi xét học lực của học sinh,biết rằng: - Nếu DTB < 5 thì học sinh có học lực Yếu; - Nếu 5 <= DTB < 8 thì học sinh có học lực Khá; - Nếu điểm toán = 10 và điểm hóa, lý > 7 thì học sinh có học lực Giỏi và thông báo học sinh nhận học bổng. - Nếu không thì học sinh có học lực giỏi và không được học bổng. (Mọi người làm theo 2 cách nhé và ko làm đc thì thôi ko sao và ko cần dùng clscr) Cảm ơn mọi người

Answer 1

Câu 6:

uses crt;

var a:integer;

begin

clrscr;

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

if a mod 2=0 then writeln(a,' la so chan')

else writeln(a,' la so le');

readln;

end.

Câu 7:

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if a>b then writeln(a-b)

else writeln(b-a);

readln;

end.

Câu 8:

uses crt;

var a,b,c,ln:integer;

begin

clrscr;

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

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

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

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

writeln(ln);

readln;

end.

Câu 10:

uses crt;

var toan,ly,hoa,dtb:real;

begin

clrscr;

write('Nhap diem Toan:'); readln(toan);

write('Nhap diem Ly:'); readln(ly);

write('Nhap diem Hoa:'); readln(hoa);

dtb:=(toan*2+ly+hoa)/4;

if dtb<5 then writeln('Yeu');

if (5<=dtb) and (dtb<8) then writeln('Kha');

if dtb>=8 then

begin

if (toan=10) and (hoa>7) and (ly>7) then writeln('Gioi va nhan hoc bong')

else writeln('Gioi va khong nhan hoc bong');

end;

readln;

end.