a)xác định bài toán:

input:số nguyên dương n

output:tổng n số nguyên

b)thuật toán:

B1:nhập n

B2:tong ←0,i←1

B3:tong←tong+i,i←i+1

B4:nếu i≤n thì đến B3,ngược lại đến B5

B5:kết thúc.

c)viết chương trình:

program tinhtong;

uses crt;

var i,n,tong: integer;

begin

         clrscr;

          writeln ('nhap n');readln(n);

         tong:=0;i:=1;

         while i<n do 

         begin tong:=tong+i;

                   i:=i+1 end;

         write ('tong la:',tong);

        readln;

end.

program ct;

uses crt;

var i,S,n:integer

begin

clrscr;

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

    S:=0; i:=0;

     while i<n do

begin

  i:=i+1;

  S:=S+i;

end;

   writeln('tong la:',S);

readln

end.