Viết chương trình tổng các số tự nhiên lẻ liên tiếp không vượt quá 100

2 câu trả lời

Program FNG;
Uses crt;
Var i,s: longint;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 99 do
                If i mod 2 = 1 then s:=s+i;
        Write('S = ',s);
        Readln
End.

132 ; 123 ; 167 ; 103 ; 012 ; 143 ; 183 ; ...