lập trình tính tích các số tự nhiên từ một đến mười

0 bình luận về “lập trình tính tích các số tự nhiên từ một đến mười”

1. program chuongtrinh1;

   uses crt;

   var i,p : integer;

   begin

   clrscr;

   p:=1;

   to i:=1 to 10 do p:=p*i;

   writeln(‘tich cac so tu nhien tu mot đen muoi la ‘,p);

   readln;

   end.

   Bình luận

2. program tinh_tich;

   uses crt;

   var i:byte;

         tich:longint;

   begin

        clrscr;

        tich:=1;

        for i:=1 to 10 do

             tich:=tich*i;

        write(‘Tich cac so tu nhien tu 1 den 10 la: ‘,tich);

        readln;

   end.

   Bình luận