Viết phương trình tính tổng S= 2+4+6+…1000

0 bình luận về “Viết phương trình tính tổng S= 2+4+6+…1000”

1. program tinhtong;

   uses crt;

   var t:longint;

          i:integer;

   begin

   clrscr;

   t:=0;

   for i:=2 to 1000 do

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

   write(‘Tong cac so chan tu 1->1000 la: ‘,t);

   readln

   end.

   Bình luận