viết chương trình tính tổng các số tự nhiên từ 10 đến 30 . thông báo kết quả ra màn hình ?

0 bình luận về “viết chương trình tính tổng các số tự nhiên từ 10 đến 30 . thông báo kết quả ra màn hình ?”

1. program tong;

   uses crt;

   var i,T: integer;

   Begin

            clrscr;

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

            write(‘T = ‘,T);

            readln

   End.

   Bình luận

2. uses crt;
   var s,i:longint;
   begin
   clrscr;
      s:=0;
      for i:=1 to 30 do s:=s+i;
      writeln(‘Tong cac so tu 1 den 30: ‘,s);
   readln
   end.

   Bình luận