Hãy tìm hiểu đoạn chương trình sau đây.

Sau khi thực hiện đoạn chương trình trên, lệnh Writeln in ra màn hình giá trị của i, j, k lần lượt là bao nhiêu?

          A. 2,3,4                          B. 7,2,3                          C. 7,3,6                D. 6,3,7

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

HÃY CHO BIẾT KẾT QUẢ IN RA MÀN HÌNH

a, i=-1; j=20;

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

j:=j+i;

write(i, '     ',j);

b, i:=1;j:=20

for k:=1 o 5 do 

begin   

        i:=i+1; j:=j+i;

end.

writeln(i, '    ',j);

c, i:=1;j:=20;

fork:=1 to 5 do

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

   j:=j+i;

  writeln(i,'    ',j);

Bài 1: Trong các câu lệnh Pascal sau đây, câu lệnh nào sai và sai ở đâu?

a) While i:=1 to t:=10;
b) While a<=b ; do write(‘b khong lon hon a’);
c) While 1=1 do write(‘Toi lap trinh gioi’);
d) i:=1; while i<10 do sum:=sum+i; i:=i+1;
e) i:=1; x:=5;
while i<x do i:=i+1; write(‘Gia tri cua i la: ’,i);
Bài 2: Hãy cho biết câu lệnh writeln in ra màn hình giá trị của i, j và k là bao nhiêu?
a) Đoạn chương trình 1
i:=1; j:=2; k:=3;
While i<6 do i:=i+1; j:=j+1; k:=k+j;
Writeln(i,’ ’,j,’ ’,k);
b) Đoạn chương trình 2
i:=1; j:=2; k:=3;
While i<6 do begin i:=i+1; j:=j+1; k:=k+j; end;
Writeln(i,’ ’,j,’ ’,k);

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);