Viết chương trình tính tích các số từ 1 tới n. Với n cũng được nhập từ bàn phím.

0 bình luận về “Viết chương trình tính tích các số từ 1 tới n. Với n cũng được nhập từ bàn phím.”

1. Program BTH;
   uses crt;
   var n,i:longint;
   s:word;
   begin
   clrscr;

   Repeat
   write(‘Nhap n: ‘);readln(n);
   If n mod 2=1 then
   writeln(‘So nhap khong hop le moi nhap lai’);
   until n>0;
   s:=1;
   For i:=1 to n do
   s:=s*i;
   write(‘Tong day so tren la: ‘,s);
   readln;
   end.

   Bình luận

2. program tinh_tich;

   uses crt;

   var n,i:byte;

         tich:longint;

   begin

        clrscr;

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

        tich:=1;

        for i:=1 to n do tich:=tich*i;

        write(‘Tich cac so tu 1 den ‘,n,’ la: ‘,tich);

        readln;

   end.

   Bình luận