Viết chương trình tính tổng 10 số tự nhiên đầu tiên

0 bình luận về “Viết chương trình tính tổng 10 số tự nhiên đầu tiên”

1. program tinhtong;
   uses crt;
   var s,i,n:integer;
   begin
   s:=0;
   for i:=1 to 10 do s:=s+1;
   writeln (‘tong cua s=’,s);</p><p>readln</p><p>end.</p><p>2.</p><p>program tinhtong;</p><p>uses crt;</p><p>var i,L,s:integer;</p><p>begin</p><p>write(‘nhap gia tri L=’); readln(L);</p><p>s:=0;</p><p>for i:=1 to L do s:=s+1;</p><p>writeln(‘tong cua s=’,s);
   readln
   end.

   đấy nhé

   Bình luận

2. program tinh_tong;

   uses crt;

   var i,t:integer;

   begin

       clrscr;

       t:=0;

       for i:=1 to 10 do t:=t+i;

       write(‘Tong 10 so tu nhien dau tien la: ‘,t);

       readln;

   end.

   Bình luận