Viết chương trình nhập vào 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 Hotboy;
Uses crt;
Var s,i,n: longint;
Begin
Clrscr;
S:=1;
Write('nhap n');
Readln(n);
For i:=1 to n do
S:=S*i;
I:=i+1;
Write('tich la',S);
Readln
End.
Câu hỏi trong lớp
Xem thêm