Pascal 8

[Khánh Phương Phan]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Các bạn giúp mình viết chương trình của 2 bt này nhé!:r2

BT1
-Nhập số nguyên n bất kì
-In ra màn hình kết quả, kiểm tra số nguyên đó là số chẳn hay số lẻ; số âm hay số dương.

Vd: Khi chương trình chạy:
Nhap so nguyen n: -56
So -56 la so chan
So -56 là so am



BT2
Giả sử xếp loại học lực của học sinh được tính như sau:
-điểm trung bình từ 8.0 đến 10.0 thì xếp loại 'Gioi'
-điểm trung bình từ 6.5 đến 7.9 thì xếp loại 'Kha"
-điểm trung bình từ 5.0 đến 6.4 thì xếp loại 'Trung binh'
-điểm trung bình từ 3.5 đến 4.9 thì xếp loại 'Yeu'
-điểm trung bình dưới 3.5 thì xếp loại 'Kem'
Viết chương trình:
. nhập họ tên HS, điểm trung bình
. in ra màn hình kết quả xếp loại học lực của học sinh.

Vd: Khi chương trình chạy:
Ho va ten hoc sinh: Tran Van Tu
Diem trung binh: 6.4
Xep loai hoc luc: trung binh

 

[ka1412]

B1:
uses crt;
var n:integer;
begin
write('Nhap so:');readln(n);
if (n mod 2 =0) then writeln(n,' la so chan') else writeln(n,' la so le');
if n<0 then write(n,' la so am');
if n>0 then write(n,' la so duong');
readln
end.
B2:
uses crt;
var n:real;
s:string;
begin
write('Nhap ten:');readln(s);
write('Nhap diem trung binh:');readln(n);
if (n>=8) and (n<=10) then write('Xep loai hoc luc: gioi');
if (n>=6.5) and (n<=7.9) then write('Xep loai hoc luc: kha');
if (n>=5) and (n<=6.4) then write('Xep loai hoc luc: trung binh');
if (n>=3.5) and (n<=4.9) then write('Xep loai hoc luc: yeu');
if n<3.5 then write('Xep loai hoc luc: kem');
readln
end.