Viết chương trình thực hiện tính tổng dãy số S= 11+13+15+…+101 ( sử dụng lệnh lặp với số lần chưa biết trước)

Question

Viết chương trình thực hiện tính tổng dãy số S= 11+13+15+...+101 ( sử dụng lệnh lặp với số lần chưa biết trước)

kimlien · Answer

program tinh_tong;

uses crt;

var i,S:integer;

begin

clrscr;

i:=11; S:=0;

while i<=101 do

begin

S:=S+i;

i:=i+1;

end;

write(‘S= ‘,s);

readln;

end.

0 bình luận về “Viết chương trình thực hiện tính tổng dãy số S= 11+13+15+…+101 ( sử dụng lệnh lặp với số lần chưa biết trước)”