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

D. Hoạt động vận dụng

Hãy viết chương trình sử dụng lệnh lặp FOR để 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;

for i:=1 to 10 do S := S + i;

writeln (S);

readln;

end.