Julliën Đặng
Hỏi từ APP VIETJACK
Viết chương trình tính tích S= 1.2.3....n
Quảng cáo
2 câu trả lời 2378
Program tinh_tich;
Uses crt;
Var i,n,S: longint;
Begin
Writeln ('nhap n=');
Readln (n);
S:=1;
For i:=1 to n do
S:=S*i;
Writeln ('Tich S la:',S);
Readln
End.
Program tinh_tich;
Uses crt;
Var i,n,S: longint;
Begin
Writeln ('nhap n=');
Readln (n);
S:=1;
For i:=1 to n do
S:=S*i;
Writeln ('Tich S la:',S);
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45577
-
Đã trả lời bởi chuyên gia
28960 -
Hỏi từ APP VIETJACK28509
Gửi báo cáo thành công!
