tính tổng các số chắn của dãy gồm 100 số tự nhiên đầu tiên bằng cách dùng While nhanh nhanh các bạn ơi nhanh để làm đang thi

0 bình luận về “tính tổng các số chắn của dãy gồm 100 số tự nhiên đầu tiên bằng cách dùng While nhanh nhanh các bạn ơi nhanh để làm đang thi”

1. uses crt;
   var i,s:longint;
   begin
   clrscr;
      i:=0; s:=0;
      while i<100 do 
         begin
            inc(i);
            if i mod 2=0 then inc(s,i);
         end;
       writeln(‘Tong ca so cahn tu 1 desn 100: ‘,s);
   readln
   end.

   Bình luận

2. Xin CTLHN nhé

   Program tinhtong;

   Uses crt;

   var i,s:longint;

   begin

   clrscr;

   i:=1;s:=0;

   While i<= 100 do If i mod 2 = 0 then S:= S+i;

   begin

   i:=i+1;

   Writeln(‘ tong cac so chan :’,S);

   Readln;

   end.

   Bình luận