nhập n số nguyên từ bàn phím .tính tổng n số nguyên đó bằng cách sử dụng vòng lặp while…do

0 bình luận về “nhập n số nguyên từ bàn phím .tính tổng n số nguyên đó bằng cách sử dụng vòng lặp while…do”

1. 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.

   Bình luận

2. 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.

   Bình luận