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.