Câu 3:
Program tinhtong;
Uses crt;
Var N, s, i: integer;
BEGIN
clrscr;
Writeln('Nhap so N:'); Readln(N);
s:=0;
for i:= 1 to N do if i mod 2 =0 then s:=s+i;
Writeln('Tong cac so nguyen chan la: ', s);
Readln;
END.
Câu 4:
Từ i =1 đến i<=5
ta có:
s=s+i;
s=0+1=1;
s=0+1=1;
s=1 + 2 = 3;
...
s=10+5=15
do i = 6 > h nên không thực hiện lệnh lặp nữa
VẬY S= 15;
Câu 5:
1)
Từ i = 5 giảm xuống lần lượt 1đơn vị (điều kiện đúng là i >1 )
i = 5 (đúng)
i = 4 (đúng)
i = 3 (đúng)
i=2
i=1 =1 (sai)
Vây lệnh l;lặp thực hiện 4 lần
2)
a = 10 (điều kiện đúng là a <= 11)
a =a+1=10+1=11 (đúng)
a=11+1=12>11(sai);
Vậy lệnh lặp thực hiện 1 lần