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
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.
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.