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.

uses crt;

var i, s : longint;

begin

clrscr;

s := 0;

for i := 1 to 200 do

if i mod 2 <> 0 then s := s + i;

write('Tong so le be hon 200 = ', s);

readln

end.