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