Việt chương trình tính tổng của n số tự nhiên đầu tiên (2 cách:dụng for,dùng while)

0 bình luận về “Việt chương trình tính tổng của n số tự nhiên đầu tiên (2 cách:dụng for,dùng while)”

1. For..do:

   Program BTH;
   uses crt;
   var i,n,s:longint;
   begin
           clrscr;
           write(‘Nhap n: ‘); readln(n);
           s:=0;
           for i:=1 to n do
                   s:=s+i;
           writeln(‘Tong day so tren la: ‘,s);
           readln;
   end.

   while… do:

   Program BTH;
   uses crt;
   var i,n,s:longint;
   begin
           clrscr;
           write(‘Nhap n: ‘); readln(n);
           s:=0;

           i:=1;
           while i<=n do
                   begin
                           s:=s+i;
                           i:=i+1;
                   end;
           writeln(‘Tong day so tren la: ‘,s);
           readln;
   end.

   Bình luận

2. sử dụng For..to..do:

   program oken;
   uses crt;
   var i,n,sum:longint;
   begin
           clrscr;
           write(‘nhap so n: ‘); readln(n);
           sum:=0;
           for i:=1 to n do
                   sum:=sum+i;
           writeln(‘Tong=’,sum);
           readln;
   end.

   Sử dụng while… do:

   program oken;
   uses crt;
   var i,n,sum:longint;
   begin
           clrscr;
           write(‘nhap so n: ‘); readln(n);
           sum:=0; i:=1;
           while i<=n do
                   begin
                           sum:=sum+i;
                           i:=i+1;
                   end;
           writeln(‘Tong=’,sum);
           readln;
   end.

   Bình luận