viết chương trình tính tổng các số lẻ từ 1 đến 100 (yêu cầu sử dụng lặp lùi) mn giúp em với ạ
2 câu trả lời
uses crt;
var i:word;
sum:longint;
begin
clrscr;
for i:=100 downto 1 do
if i mod 2=1 then inc(sum,i);
write(sum);
readln;
end.