Viết chương trình tính tổng 2+4+6+…+i+-đến khi S>100000 31/07/2021 Bởi Arya Viết chương trình tính tổng 2+4+6+…+i+….đến khi S>100000
var i,s:integer; begin s:=0; for i:=1 to 100 do if i mod 2=0 then s:=s+i; writeln(‘ Tong la: ‘,s); readln; end.#Học Tốt! ^_^ #Xin CTRLHN ạ! @trinhthuy1987. #hoidap247com Bình luận
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if i mod 2=0 then s:=s+i;
writeln(‘ Tong la: ‘,s);
readln;
end.
#Học Tốt! ^_^
#Xin CTRLHN ạ!
@trinhthuy1987.
#hoidap247com