Viết chương trình nhập vào 1 số n sau đó tính tích các số từ 1 đến n.

0 bình luận về “Viết chương trình nhập vào 1 số n sau đó tính tích các số từ 1 đến n.”

1. program kaito;

   uses crt;

   var n, i, m: integer;

   begin

      clrscr;

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

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

      writeln(‘Tich cua cac so tu 1 den ‘,n,’ la: ‘,m);

      readln;

   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận

2. program tinh_tich;

   uses crt;

   var i,n:integer;

         S: longint;

   begin

     clrscr;

     write (‘ Nhap so n = ‘); readln (n);

     S:=1;

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

     writeln (‘Tich la :’,S);

     readln

   end.

   Bình luận