Bài 6. Câu lệnh điều kiện

Đào Chí Thành
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
Nguyễn Lê Phước Thịnh
24 tháng 10 2020 lúc 9:26

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.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Hê Lô Bạn
Xem chi tiết
Minh Ngọc
Xem chi tiết
Le Hung Dung
Xem chi tiết
phamthiminhanh
Xem chi tiết
An An
Xem chi tiết
01.Xuân Anh Dư
Xem chi tiết
Huy Tùng Vũ
Xem chi tiết
USSGV
Xem chi tiết
Minh Ngọc
Xem chi tiết