Viết chương trình tính tổng s=2+4+6+…+100 bằng hai câu lệnh lặp while…do và for…do

0 bình luận về “Viết chương trình tính tổng s=2+4+6+…+100 bằng hai câu lệnh lặp while…do và for…do”

1. for … do …

   uses crt;

   var i,s:integer;

   begin

   clrscr;

   s:=0;

   for i := 1 to 50 do s:=s+i*2;

   writeln(‘s = ‘,s);

   readln;

   end.

   while … do …

   uses crt;

   var i,s:integer;

   begin

   clrscr;

   i:=0;s:=0;

   while i <= 100 do

   begin

      s:=s+i;

      i:=i+2

   end;

   writeln(‘s = ‘,s);

   readln;

   end. 

   Bình luận

2. for…to…do

   uses crt;
   var i,s:integer;
   begin
      clrscr;
      s:=0;
      for i:=1 to 50 do s:=s+i*2;
      writeln(‘s=’,s);
      readln
   end.

   while…do

   uses crt;
   var i,s:integer;
   begin
      clrscr;
      i:=0; s:=0;
      while i <= 100 do
      begin
         s:=s+i;
         i:=i+2
      end;
      writeln(‘s=’,s);
      readln
   end. 

   Bình luận