Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sau

Câu a)

          i := -1;

          j:= 20;

For   k:= 1 to 5 do

          If  k   mod   2  = 0   then    i:= i + 1;

j := j + i;

Writeln(i,‘   ’,j);

Câu b)

n := 127;

m := 0;

While  n < >0  do

Begin

                   m := m * 10 + n  mod  10;

                   n := n  div  10;

end;

writeln(m);

Bài 1 : đối với từng đoạn chương trình Pascal sau đây ,cho biết lệnh writeln in ra màn hình giá trị của j và k là biến.

Đoạn chương trình 1:

j:=2;k:=3;

for i:=1 to 5 do j:=j+1;

k:=k+j;

cach:='  ' ;

writeln(j,cach,k);

Đoạn chương trình 2:

j:=2; k:=3;

for i:= 1 to 5 do

begin

         j:=j+1;k:=k+j;

        end;

        cach:='  ';

        writeln(j,cach,k);

đoạn chương trình 3:

j:=2;k:=3;

for i:=1 to 5 do then j:=j+1;

k:=k+j;

cach:='  ';

writeln(j,cach,k);

Câu 36. Cho đoạn chương trình:

i:=1; j:=2; k:=3;

While i<6 do i:=i+1; j:=j+1; k:=k+j;

Writeln (i, j, k);

Sau khi thực hiện đoạn chương trình trên i, j, k có kết quả là

A. 6;3;6

B. 6;6;12

C. 6;7;12

D. 6;7;28

Câu 2.  j:= 4; k:=4;

For i:=1 to 4 do begin  j:=j+i; k:=k+j; end;

writeln( j, k); 

a) Cho biết giá trị của k, j sau khi thực hiện đoạn chương trình trên?

b) Viết đoạn chương trình thể hiện thuật toán trên?

Câu 3. Viết chương trình tính tổng các số chẵn (hoặc lẻ) từ 1 đến 100 sử dụng câu lệnh for...do?

Câu 4. Viết chương trình tính tổng của N số tự nhiên đầu tiên với N là số tự nhiên nhập từ bàn phím.

Câu 5. Viết chương trình tính tổng các số tự nhiên từ 1 đến 100 sử dụng câu lệnh lặp while...do.