Viết phương trình tìm tổng số lẻ của 100 số tự nhiên đầu tiên

0 bình luận về “Viết phương trình tìm tổng số lẻ của 100 số tự nhiên đầu tiên”

1. program bt; 

   var i, T: integer; 

   begin

        T:=0;

        for i:= 1 to 100 do

              if i mod 2 <>0 then T:=T+i; 

        write(‘Tong cua cac so le la:’,T); 

        readln; 

   end. 

   Bình luận

2. Program aaa;

   Uses crt;

   VAR S,i: Integer;

   BEGIN

    clrscr;

       For i:= 1 to 100 do

       If i mod 2 = 1 then S:= S+i;

       Write(S);

    Readln

   END.

   Bình luận