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.

Ở ảnh nha bạn

Câu hỏi trong lớp Xem thêm