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

0 bình luận về “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”

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

   Bình luận

2. 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.

   Bình luận