Program tinhtong;
Uses crt;
Var i,n,s : real;
Begin
Write(' nhap so n',n);
Readln(n);
For i:=1 to n do
I:=i+1;
S:=0;
S:=s+i;
End;
Write(' tong cua cac so tu 1 den n la', S);
Readln
End.
Thuật toán
I: cho biết n
O : tính tổng từ 1 đến n
Bước 1 : nhập số n
Bước 2 : sử dùng vòng lặp For to do để tính tổng từ 1 đến N
Bước 3 : In kết quả ra màn hình
Bước 4 kết thúc chương trình