Question

Viết chương trình con tính tổng:

s=1+3+5.....+......cho tới s>100 ,xuất s ra màn hình

Answer 1

Procedure tinhtong;

begin

s:=0;

for i:=1 to 100 do

if (i mod 2<>0) and (s<=100) then s:=s+i else break;

write(s);

end;