Viết chương trình nhập vào 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 số n sau đó tính tích các số từ 1 đến n.”

1. program ct;

   uses crt;

   var t,i,n:integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   t:=1;

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

   writeln(‘tích các số từ 1 đến n la:’,t);

   readln

   end.

   Bình luận

2. uses crt;
   var s,i,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      s:=1;
      for i:=1 to n do s:=s*i;
      write(‘Tich cac so tu 1 den ‘,n,’ la: ‘,s);
      readln
   end.

   Bình luận