đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím) giúp

0 bình luận về “đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím) giúp”

1. 1/

   program bai1;

   uses crt;

   var i,t:integer;

      begin

         clrscr;

         t:=0;

         for i:=1 to 10 do

            t:=t+i;

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

         readln

     end.

   2/

   program bai2;

   uses crt;

   var i,l,t:integer;

     begin

       clrscr;

        write(‘Nhap l: ‘);        readln(l);

        t:=0;

        for i:=1 to l do

            t:=t+i;

        writeln(‘Tong cua ‘,l,’ so tu nhien dau tien la: ‘,t);

        readln

      end.

   Bình luận