Kim Anh 05.813
Hỏi từ APP VIETJACK
Viết chương trình tính tích số lẻ từ 1 đến n. Với n là số nguyên nhập từ bàn phím
Quảng cáo
1 câu trả lời 1932
uses crt;
var i,n,s:longint;
begin
clrscr;
write('n='); readln(n);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln('tich cac so le tu 1 toi ',n,' 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 VIETJACK45547
-
Hỏi từ APP VIETJACK28471
-
Đã trả lời bởi chuyên gia
27084
Gửi báo cáo thành công!
