viết chương trình tính tổng các số lẻ từ 1 đến 100

0 bình luận về “viết chương trình tính tổng các số lẻ từ 1 đến 100”

1. Program Hotboy ;

   Uses crt;

   Var s,i : integer;

   Begin

   Clrscr;

   S:=0;

   For i:= 1 to 100 do

   If (i mod 2=1) then S:=S+i;

   Write(‘tong le la’,S);

   Readln

   End.

   Bình luận

2. program oken;
   uses crt;
   var i,sum:longint;
   begin
           clrscr;
           sum:=0;
           for i:=1 to 100 do
                   if i mod 2<>0 then
                           sum:=sum+i;
           writeln(‘Tong cac so le tu 1 den 100: ‘,sum);
           readln;
   end.

   Bình luận