Question

1.

a, Cho đoạn chương trình sau:

x:=0;

For j:=1 To 6 Do x:=x+j;

Hãy chuyển sang lệnh WHILE...DO viết thành chương trình hoàn chỉnh và cho biết giá trị x bằng bao nhiêu?

b. Cho đoạn chương trình sau:

x:=0; j:=0;

While j<= 6 Do begin x:=x+j;j:=j + 1; end;

Hãy chuyển sang lệnh FOR...TO...DO, viết thành chương trình hoàn chỉnh và cho biết giá trị x là bao nhiêu?

Answer 1

a)

Program HOC24;

var x,j: integer;

begin

j:=1; x:=0;

while j<=6 do

begin

x:=x+j;

j:=j+1;

end;

write(x);

readln

end.

Answer 2

b)

Program HOC24;

var x,j: integer;

begin

x:=0;

for j:=1 to 6 do x:=x+j;

write(x);

readln

end.