Viết chương trình: – Nhập vào số nguyên N – Tính tích N số nguyên đầu tiên và xuất kết quả ra màn hình

0 bình luận về “Viết chương trình: – Nhập vào số nguyên N – Tính tích N số nguyên đầu tiên và xuất kết quả ra màn hình”

1. uses crt;

   var i,n,t:longint;

   begin

   clrscr;

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

   t:=1;

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

   writeln(‘Tich = ‘,t);

   readln;

   end.

   Bình luận

2. uses crt;

   var i,n,s:longint;

   begin

   clrscr;

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

   s:=1;

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

   writeln(‘Tich = ‘,s);

   readln;

   end.

   Bình luận