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

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

Viết một bình luận