Viết chương trình nhập vào 1 số n sau đó tính tích các số từ 1 đến n.
2 câu trả lời
program tinh_tich;
uses crt;
var i,n:integer;
S: longint;
begin
clrscr;
write (' Nhap so n = '); readln (n);
S:=1;
for i:=1 to n do S:=S*i;
writeln ('Tich la :',S);
readln
end.
program kaito;
uses crt;
var n, i, m: integer;
begin
clrscr;
write('Nhap so n: '); readln(n);
for i:=1 to n do m:=m*i;
writeln('Tich cua cac so tu 1 den ',n,' la: ',m);
readln;
end.
CHÚC BẠN HỌC TỐT!!!