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

2 câu trả lời

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.

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.