Viết chương trình Tỉnh tổng các số lẻ bé hơn 200

Ý tưởng:

– $200$ là số chẵn.

– Mà đề cho vừa là số lẻ vừa bé hơn $200$ thì chỉ có số $199$ (TM).

– Dùng vòng lặp for..to..do cho biến i chạy từ $1\to199$.

– Đang lặp mà tìm thấy ai mod 2=1 thì cho tổng cộng với anh đó.

Chương trình:

uses crt;
var i,s:longint;
begin
        clrscr;
        for i:=1 to 199 do if i mod 2=1 then inc(s,i);
        writeln(‘Tong cac so le be hon 200: ‘,s);
        readln;
end.