Viết chương trình tính tổng các số tự nhiên liên tiếp từ một đến 10 dùng cấu trúc lặp For…do

0 bình luận về “Viết chương trình tính tổng các số tự nhiên liên tiếp từ một đến 10 dùng cấu trúc lặp For…do”

1. program tinh_tong;

   uses crt;

   var i,T:byte;

   begin

         clrscr;

         T:=0;

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

         write(‘Tong cac so tu nhien tu 1 den 10 la: ‘,T);

         readln;

   end.

   Bình luận

2. program tinh_tong;

   uses crt;

   var i,s:integer;

   begin

   clrscr;

   s:=0;

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

   write(‘tong cac so tu nhien lien tiep tu mot den muoi s=’,s);

   readln;

   end.

   học tốt

   Bình luận