viết chương trình tính tổng các số từ 1 đến 100 ( sử dụng For..to..do và while..do)

0 bình luận về “viết chương trình tính tổng các số từ 1 đến 100 ( sử dụng For..to..do và while..do)”

1. for…do

   program tinh_tong;

   uses crt;

   var i,t:integer;

   begin

        clrcsr;

        t:=0;

        for i:=1 to 100 do t:=t+i;

        write(‘Tong tu 1 den 100 la: ‘,t);

        readln;

   end.

   while…do

   program tinh_tong;

   uses crt;

   var i,t:integer;

   begin

        clrcsr;

        t:=0; i:=1;

        while i<=100 do

             begin

                  t:=t+i;

                  i:=i+1;

             end;

        write(‘Tong tu 1 den 100 la: ‘,t);

        readln;

   end.

   Bình luận

2. * Sử dụng for to do:

   program baitap;

   uses crt;

   var i,s: integer;

   begin

   s:=0;

   for i:=1 to 100 do s:=s+i;

   writeln(‘tong la = ‘,s);

   readln;

   end.

   *Sử dụng while do:

   program baitap;

   uses crt;

   var i,s:integer;

   begin

   i:=1;s:=0;

   while (i<=100) do

   begin

   s:=s+i;

   end;

   writeln(‘ton la = ‘,s);

   readln;

   end.

   Bình luận