1. Viết chương trình tính tích của 2 số nguyên dương nhập từ bàn phím 2. Việt thuật toán tính tổng các số chẵn của 20 số tự nhiên đầu tiên 3. Viết chương trình nhập vào một số thực bất kỳ, sau đó thông báo ra màn hình số vừa nhập vào là số âm hay số dương a) Mô tả thuật toán của bài toán trên b) Viết chương trình bằng NNLT Pascal cho bài toán trên 4. Viết chương trình xét học lực của em với điểm 5 môn Toán, lí, hoá, văn, tin được nhập từ bàn phím. Nếu điểm trung bình >= 8 học lực giỏi ngược lại học lực khá. a) Xác định bài toán b) Mô tả thuật toán c) Viết chương trình tính điểm trung bình và xét học lực đạt được. Mọi người giúp em vs ạ. Em cảm ơn !^^

Bài 1:

Program BTT;
Uses crt;
Var a,b,s: qword;
Begin
        Clrscr;
        Write('Nhap so nguyen duong thu nhat: '); Readln(a);
        Write('Nhap so nguyen duong thu hai: '); Readln(b);
        s:=a*b;
        Write('Tich cua hai so do la: ',s);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var s,i: byte;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 20 do
                If i mod 2 = 0 then s:=s+i;
        Write('Tong cac so chan cua 20 so tu nhien dau tien la: ',s);
        Readln
End.

Bài 3:

a) Thuật toán:

Bước 1: Nhập số thực a

Bước 2: Nếu a>0 thì xuất a là số dương và thực hiện bước 5

Bước 3: Nếu a<0 thì xuất a là số âm và thực hiện bước 5

Bước 4: Nếu a=0 thì xuất a không âm và không dương và thực hiện bước 5

Bước 5: Kết thúc chương trình

b) Chương trình:

Program BTT;
Uses crt;
Var a: real;
Begin
        Clrscr;
        Write('Nhap so thuc: '); Readln(a);
        If a > 0 then Write('So duong');
        If a < 0 then Write('So am');
        If a = 0 then Write('Khong phai so am, khong phai so duong');
        Readln
End.

Bài 4:

a) Xác định bài toán:

Input: Điểm 5 môn

Ouput: Xếp loại học lực

b) Thuật toán

Bước 1: Nhập điểm từng môn: toan, li, hoa, van, tin

Bước 2: s ← toan+li+hoa+van+tin

Bước 3: tbc ← s/5

Bước 4: Nếu tbc>=8 thì xuất học sinh giỏi

Ngược lại xuất học sinh khá

c) Chương trình:

Program BTT;
Uses crt;
Var toan,li,hoa,van,tin,s,tbc: real;
Begin
        Clrscr;
        Write('Nhap diem mon Toan: '); Readln(toan);
        Write('Nhap diem mon Li: '); Readln(li);
        Write('Nhap diem mon Hoa: '); Readln(hoa);
        Write('Nhap diem mon Van: '); Readln(van);
        Write('Nhap diem mon Tin: '); Readln(tin);
        s:=toan+li+hoa+van+tin;
        tbc:=s/5;
        If tbc>=8 then Write('Hoc sinh gioi')
        Else Write('Hoc sinh kha');
        Readln
End.