Viết chương trình tính T=1, 2, 3,…N. Với N nhập từ bàn phím (N ≤ 10)

0 bình luận về “Viết chương trình tính T=1, 2, 3,…N. Với N nhập từ bàn phím (N ≤ 10)”

1. uses crt;
   var n,i,t:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);

   t:=1;
      for i:=1 to n do t:=t*i;
      writeln(‘T= ‘,t);
   readln
   end.

   Trả lời

2. uses crt;

   var tich,i,n:longint;

   begin

   clrscr;

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

   tich:=1;

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

   writeln(tich);

   readln;

   end.

   Trả lời