VCT tính tích S=1*2*3*...*n (n<=100) kiểu dữ liệu cho đúng nghe
2 câu trả lời
uses crt;
var i,n: integer;
s: qword;
begin
clrscr;
write ('nhap n: '); readln (n);
s:=1; {nếu ko gán thì s=0, mà s=0 thì nhân bao nhiêu cũng =0}
for i:=1 to n do s:=s*i;
writeln ('tong la: ',s);
readln;
end.
uses crt;
var i,n,s: longint;
begin
clrscr;
readln (n);
for i:=1 to n do
s:=s*i;
writeln (s);
readln;
end.
Câu hỏi trong lớp
Xem thêm
