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.

Mình làm 2 cách:

for ... to ... do và while .... do nha