Viết CT nhập vào số nguyên dương n(n được nhập giá trị từ bàn phím), sau đó thực hiện các yêu cầu sau: a, nếu n=0 thì yêu cầu nhập lại số n b, tính tổng các số chẵn từ 1 đến n vừa nhập c, tính tích các số lẻ từ 1 đến n vừa nhập D, in các giá trị vừa tính được ra màn hình

Câu 36: Giả sử a:=2; thì sau câu lệnh For i:=1 to 3 do a:=a*a; a nhận giá trị bằng bao nhiêu?

A. 16               B. 256             C. 64               D. 128

Câu 35: Đoạn lệnh sau đây sẽ cho kết quả là gì?

ketqua := 1; While ketqua<2 do writrln(ketqua);

A. In ra vô hạn số 1 trên một cột                    B. In ra các số từ 1 đến 10

C. Chương trình báo lỗi                                  D. In ra vô hạn số 1 trên một dòng

Câu 36: Giả sử a:=2; thì sau câu lệnh For i:=1 to 3 do a:=a*a; a nhận giá trị bằng bao nhiêu?

A. 16               B. 256             C. 64               D. 128

Câu 33: Cho T:= 20; For i:= 2  to 6 do T:=T - 2; Sau vòng lặp giá trị T=?

A. 10               B. 12               C. 8                             D. 6

Câu 40:  Khi thực hiện đoạn chương trình sau:  n:=10; T:=10;

While n <30 do

          Begin

           N:=n+t; t:=t+5;

          End;

Giá trị N=?

A. 35                           B. 40                           C. 45                           D. 50

Câu 39: Hoạt động nào sau đây lặp với số lần biết trước:

A. Em ăn cơm lúc 6 giờ chiều mỗi ngày                     B. Hôm nay, em ăn cơm sớm lúc 5 giờ

C. Chạy cho đến khi mệt                                            D. Hôm nay, em viết thư cho bạn Lan

Câu 38: Trong ngôn ngữ Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì?

For i:=1 to 10 do write (i,’ ‘);

A. 1 2 3 4 5 6 7 8 9 10                                    B. 10 9 8 7 6 5 4 3 2 1

C. Đưa ra 10 dấu cách                                    D. Không đưa ra kết quả gì

Câu 35: Đoạn lệnh sau đây sẽ cho kết quả là gì?

ketqua := 1; While ketqua<2 do writrln(ketqua);

A. In ra vô hạn số 1 trên một cột                    B. In ra các số từ 1 đến 10

C. Chương trình báo lỗi                                  D. In ra vô hạn số 1 trên một dòng

Câu 32  Khi thực hiện đoạn chương trình sau:  n:=10; T:=10;

While n <16 do

          Begin

           N:=n+t; t:=t-5;

          End;

Giá trị t=?

A. 5                 B. 10               C. 15               D. 20

Câu 28: Sau khi thực hiện đoạn chương trình sau, giá trị của tổng  bằng bao nhiêu?

tong:= 0; While tong<11 do tong:-tong+1;

A. 11               B. 9                 C. 10               D. 12