VCT tính tích S=1*2*3*…*n (n<=100) kiểu dữ liệu cho đúng nghe

0 bình luận về “VCT tính tích S=1*2*3*…*n (n<=100) kiểu dữ liệu cho đúng nghe”

1. uses crt;

   var i,n: integer;

           s: qword;

   begin

   clrscr;

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

   s:=1; {nếu ko gán thì s=0, mà s=0 thì nhân bao nhiêu cũng =0}

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

   writeln (‘tong la: ‘,s);

   readln;

   end.

   

   Bình luận

2. uses crt;

   var i,n,s: longint;

   begin

   clrscr;

   readln (n);

   for i:=1 to n do

   s:=s*i;

   writeln (s);

   readln;

   end.

   Bình luận