C1 viết chương trình tính Tổng 100 số tự nhiên Bằng câu lệnh for do while-. Do

0 bình luận về “C1 viết chương trình tính Tổng 100 số tự nhiên Bằng câu lệnh for do while-. Do”

1. for…to…do:

   uses crt;
   var s,i:integer;
   begin
      clrscr;
      for i:=1 to 100 do s:=s+i;
      write(‘Tong la: ‘,s);
      readln
   end.

   while…do:

   uses crt;
   var s,i:integer;
   begin
      clrscr;
      while i<=100 do 
      begin
         i:=i+1;
         s:=s+i;
      end;
      write(‘Tong la: ‘,s);
      readln
   end.

   Bình luận

2. While do

   —

   Program HuynhDucNhatDeThuongQuaDiA;
   Uses crt;
   Var HDNCute,i: longint;
   Begin
           Clrscr;
           HDNCute:=0; i:=1;
           While i<=100 do
           Begin
                   HDNCute:=HDNCute+i;
                   inc(i);
           End;

           Write(‘S = ‘,HDNCute);
           Readln
   End.

   —

   For do

   —

   Program HuynhDucNhatDeThuongQuaDiA;
   Uses crt;
   Var HDNCute,i: longint;
   Begin
           Clrscr;
           For i:=1 to 100 do
                   HDNCute:=HDNCute+i;

           Write(‘S = ‘,HDNCute);
           Readln
   End.

   —

   Moahhhh <3 Yêu bạn 
   Mèo méo meo mèo meo ~

   Bình luận