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

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

1. program tinh_tong;

   uses crt;

   var S,i:integer;

   begin

          clrscr;

          S:=0;

          for i:=10 to 100 do

                 S:=S+i;

          write(‘S= ‘,s);

          readln;

   end.

   Bình luận

2. program phuongt;
   uses crt;
     var s, i: integer;
   begin
          clrscr;
          s:=0;
          for i:=10 to 100 do s:=s+i;
          write(‘Tong = ‘, s);
          readln
   end.

   Bình luận