Question

viết chương trình tính tích n số tự nhiên ( với n được nhập từ bàn phím )

Answer 1

uses crt;

var i,n,x,s:integer;

begin

clrscr;

readln(n);

s:=1;

for i:=1 to n do

begin

readln(x);

s:=s*x;

end;

writeln(s);

readln;

end.

Answer 2

uses crt;

var n,i:integer;

      s:longint;

begin

clrscr;

writeln('nhap n:');readln(n);

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

write('tich cua ',n,'so tu nhien dau tien la:',s);

readln;

end.

      

Answer 3

uses crt;

var n,i:integer;

      s:longint;

begin

clrscr;

writeln('nhap n:');readln(n);

s:=1;

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

write('tich cua ',n,'so tu nhien dau tien la:',s);

readln;

end.