viết chương trình tính tổng 1+2+3+…+100 dùng repeat

0 bình luận về “viết chương trình tính tổng 1+2+3+…+100 dùng repeat”

1. uses crt;

   var i,s: integer;

   begin

   clrscr;

   repeat

   i:=i+1;

   s:=s+i;

   until i=100;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận

2. program tinhtong;

   uses crt;

   var t,i:integer;

   begin

   clrscr;

   t:=0;  i:=0;

   repeat

     inc(i);

     t:=t+i;

   until i=100;

   write(“tong 100 so dau tien la: ‘,t);

   readln

   end.

   Bình luận