Bài 1:
Program B1;
Uses crt;
Var i,s: longint;
Begin
Clrscr;
s:=0;
For i:=1 to 100 do s:=s+i;
Write('Tong so cay can co de trong du 100 hang la: ',s);
Readln
End.
Bài 2:
A=10, i=5
Kiểm tra điều kiện a<5 (Sai)
=> A vẫn = 10
Bài 3:
Số vòng lặp i chạy: 10-5+1 = 6 vòng
Số vòng lặp k chạy: 5-1+1=5 vòng
Vì vòng lặp k thuộc vòng lặp i
=> Số vòng lặp chạy tổng cộng: 6*5=30 vòng
=> a được cộng thêm: 30*10 = 300
Vậy a = 300+10=310
