Viết chương trình tính tổng 2+4+6+…+i+-đến khi S>100000

0 bình luận về “Viết chương trình tính tổng 2+4+6+…+i+-đến khi S>100000”

1. program ct;

   uses crt;

   var i,S:longint;

   begin clrscr;

      for i:=1 to 1000 do;

       begin

          if i mod 2=0 then S:=S+i;

          if S>100000 then break;

       end;

      write(‘Tong S la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận

2. var i,s:integer;

   begin

   s:=0;

   for i:=1 to 100 do

   if i mod 2=0 then s:=s+i;

   writeln(‘ Tong la: ‘,s);

   readln;

   end.
   #Học Tốt! ^_^

   #Xin CTRLHN ạ!

   @trinhthuy1987.

   #hoidap247com

   Bình luận