Câu 1: cho đoạn chương trình sau: S:=0; For i:= 1 to 6 do S:=S+i; Tính giá trị của S? Câu 2: Viết chương trình tính tích của 10 số tự nhiên đầu tiên. Câu 4: Hãy tìm hiểu đoạn chương trình Pascal sau đây và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp? S:=1; n:=0; While S <=10 do Begin n:=n+1; S:=S+n; End;

2 câu trả lời

1. S=21

2. 

Program BTH;
uses crt;
var i,s:longint;
begin
        clrscr;
        For i:=1 to 10 do s:=s+i;
        writeln('Tong day so tren la: ',s);
        readln;
end.

4.

Câu lệnh lặp 4 lần

B1: S=21

B2: 

program bt;
uses crt;
var i,t:integer;
begin
        clrscr;

        t:=0;
        For i:=1 to 10 do t:=t+i;
        writeln('Tong day so la: ',t);
        readln;
end.

B3: Câu lệnh lặp 4 lần