Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program tinh_tich;
uses crt;
var n,i:byte;
tich:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
tich:=1;
for i:=1 to n do tich:=tich*i;
write('Tich cac so tu 1 den ',n,' la: ',tich);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
132
355
110
nếu đúng cho xin hay nhất-)
2863
41637
21141
tính tích mà bạn làm cái mô gì vậy