CÚ pHÁP

while điều kiện do câu lệnh;

b1 kiểm tra điều kiện

b2 nếu điều kiện đúng thực hiện câu lệnh và quay lại b1.  sai sẽ kết thúc l

sau khi thực hiện j bằng 7,  ,, k bằng 28

CÂU 3 uses crt;

         var i,n;integer;

             s:longint;

begin

clrscr;

write('nhap n= ');readln(n);

s:=0;

for i:=1 to n do s:=s+i;

write('tong cua ', n, ' la s= ', s);

readln

end.

Câu 1 :

- Cú pháp : While <điều kiện> do <câu lệnh>;

+ Điều kiện sẽ được tính toán và kiểm tra

+ Nếu điều kiện đúng, câu lệnh sau  do được hiện

+ Nếu điều kiện sai, câu lệnh sau do bị bỏ qua, kết thúc lặp

Câu 2 :

- Giá trị ban đầu j = 2, k = 3

- Giá trị biến i chạy từ 1 đến 5

+ i = 1 ⇒ j = j + 1 = 2 + 1 = 3

+ i = 2 ⇒ j = j + 1 = 3 + 1 = 4

+ i = 3 ⇒ j = j + 1 = 4 + 1 = 5

+ i = 4 ⇒ j = j + 1 = 5 + 1 = 6

+ i = 5 ⇒ j = j + 1 = 6 + 1 = 7

+ k = k + j = 3 + 7 = 10

- In giá trị i, k ⇒ 7  10

Câu 3 :

uses crt;

var i, n, S : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

S := 0; for i := 1 to n do S := S + 2 * i;

writeln('S = ', S);

readln

end.