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 22/08/2021 Bởi Josephine 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
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. Bình luận
Mình làm 2 cách:
for … to … do và while …. do nha
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.