Lập chương trình tính tích các số lẻ trong dãy từ 1 đến 52 bằng lệnh for..do hoặc while...do
2 câu trả lời
var i,s:longint;
begin
s:=1;
for i:=1 to 52 do
if i mod 2 <> 0 then s:=s*i;
write('s= ',s);
readln;
end.
var i,s:longint;
begin
s:=1;
for i:=1 to 52 do
if i mod 2 <> 0 then s:=s*i;
write('s= ',s);
readln;
end.