Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACAL
Bƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:
1.1. Dem<-0;
1.2. Sum<-0.
Bƣớc 2: Trong khi dem< N thì:
2.1. Nhập giá trị số thực x từ bàn phím;
2.2. Sum <- Sum + x;
2.3. Dem<-Dem +1;
Bƣớc 3: TB<- Sum/N;
Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.
Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N = 5;
45; 55; 67; 91
Program So_nguyen_to;
Uses crt;
Var n, i: Integer;
BEGIN
clrscr;
Write(„Nhap vao mot so nguyen : „); Readln(n);
If n <=1 then Writeln(„Khong la so nguyen to‟);
else

Begin
i: = 2;
While ( n mod I <>0) do i: = i+1;
If I = n then writeln(n,; la so nguyen to‟)
else writeln(n,‟ khong la so nguyen to‟);
end;
Writeln („Nhan phim bat ky de thoat chuong trinh‟);
Readln;
END.

1.   em hay khai báo 1 biến mảng 50 phần tử kiểu xâu ký tự?

2.   Viết chương trình tính tổng chẵn, lẽ của  10 số bất kỳ nhập vào từ bàn phím

3.   Viết chương trình kiểm tra 1 số nhập vào là số chẵn hay lẻ thông báo kết quả

4.   Hãy cho biết vòng lặp sau chạy mấy lần? vì sao?

a.   K:=7;

While (K=7) Do write(“ lap lan thu may”);

b.   H:=3;n:=6;

While (n<= 20) Do H:=H+n;

              c. For F:=3 to 23 do readln 

Mọi người giúp em . Mai là kiểm tra rồi ạ