B1: Nhập số n

B2: tổng:= 0; i:= 0;

B3: Tăng i lên 1 đơn vị

B4: Tổng:= tổng + i/(i + 1)

B5: Nếi i = n thì chuyển đến B6

Ngược lại chuyển đến B3

B6: In kết quả và kết thúc

Input: Số n

Output: kết quả của 1/2 + 2/3 + ... + n/(n+1)

B

uses crt;

var ten: string;

begin

clrscr;

write('Ban ten gi '); readln(ten);

write('Xin chao ban ',ten,' den voi pascal');

readln

end.

A)

uses crt;
var a:array[1..100]of integer;
n,i,tong:integer;
begin
clrscr;
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin
write('So thu ',i,': '); readln(a[i]);
end;
tong:= 0;
for i:=1 to n do
tong:=tong+a[i];
writeln('trung binh cong cua day so la: ',tong/n:0:2);
readln
end.

B)

uses crt;
var a:array[1..100]of integer;
n,i,tong:integer;
begin
clrscr;
write('Nhap so cac so: '); readln(n);
for i:=1 to n do
begin
write('So thu ',i,': '); readln(a[i]);
end;
tong:=0; i:=1;
while i <= n do
begin
tong:=tong + a[i];
i:= i + 1;
end;
writeln('trung binh cong cua day so la: ',tong/n:0:2);
readln;
end.

In ra màn hình 40 chữ "So thu" từ 1 đến 40

1. Không có câu nào đúng

2. B

3. D

4. A

5. A

6. A

7. C

8. Không có câu nào đúng

9. D

10. A

11. C

12. D

13. Không có câu nào đúng

14. C

15. B

16. A

17. B

18. D

19. B

20. B

21. B

22. D

23. Tùy chương trình

24. C

uses crt;
var a,u,kt:integer;
begin
clrscr; kt:= 1;
write('Nhap 1 so: ');readln(a);
if a = 1 then write(a,' khong phai so nguyen to')
else if (a = 2) or (a = 3) then write(a,' la so nguyen to')
else if a > 3 then
begin
for u:= 2 to a - 1 do
if a mod u = 0 then kt:= 0;
if kt = 0 then write(a,' khong phai so nguyen to')
else if kt = 1 then write(a,' la so nguyen to');
end;
readln
end.