Viết chương trình tính tổng các số lẻ nhỏ hơn 100

0 bình luận về “Viết chương trình tính tổng các số lẻ nhỏ hơn 100”

1. program oken;

   uses crt;

   var i,s:longint;

   begin

   clrscr;

   s:=0;

   for i:=1 to 100 do

   if i mod 2=1 then s:=s+i;

   writeln(‘Tong cac so le nho hon 100: ‘,s);

   readln;

   end.

   Bình luận

2. uses crt;
   var i:byte; s:integer;
   begin
      clrscr;
      for i:=1 to 100 do
      if i mod 2 = 1 then s:=s+i;
      write(‘Tong cac so le nho hon 100 la: ‘,s);
      readln
   end.

   Bình luận