Hãy viết chương trình sử dụng lệnh lặp WHILE - DO để tính tổng các số tự nhiên từ 1 đến 10

E. Hoạt động tìm tòi mở rộng

Hãy viết chương trình sử dụng lệnh lặp WHILE - DO để tính tổng các số tự nhiên từ 1 đến 10

Bài làm:

Uses crt;

Var S, i: integer;

Begin

clrscr;

S : = 0;

i := 1;

while i <= 10 do

begin

S := S + i;

i := i + 1;

end;

writeln (S);

readln;

end.