giup bai tap pascal vs can gap helphelp

[horseman194]

1> Viết chương trình nhập vào 2 số từ bàn phím thông báo ra màn hình kết quả so sánh của 2 số đó
2> Nhập điểm 3 môn Anh, Toán, Văn. Tính điểm trung bình kết quả Anh hệ số 4, Văn hệ số 3, Toán hệ số 1. Dựa vào điểm trung bình hãy xếp loại
DTB >= 9 : Xuất sắc
8 <= DTB <9 : Giỏi
7 <= DTB <8 : Khá
6,5 <= DTB < : TB Khá
5 <= DTB < 6,5 : TB
DTB < 5 : Yếu

[auauau97]

bài 1:

Uses crt;
Var
a,b:longint;
BEGIN
Clrscr;
Write('Nhap so a,b:');
Readln(a,b);
If (a>b) then write(a,' lon hon ',b);
If (a<b) then write(a,' nho hon ',b);
If (a=b) then write(a,' =',b);
Readln;
END.

[thecuong064]

Bài 2 bạn tính trung bình theo công thức:


s:=(anh*4+van*3+toan)/8;

Sau đó là thêm vài lệnh if để xếp loại là xong :D