hãy viết thuật toán tính tổng các số chẵn 100 số tự nhiên liên tiếp giúp mik vs ạ

0 bình luận về “hãy viết thuật toán tính tổng các số chẵn 100 số tự nhiên liên tiếp giúp mik vs ạ”

1. mik làm luôn

   program tinh_tong;

   uses crt;

   var i,tong:integer;

   begin

    clrscr;

       tong:=0;

         for i:=1 to 100 do

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

        write(tong);

   readln;

   end.

   Bình luận