có bao nhiêu sô lẻ từ 1 đến 100 for i:=1 to n do ?

0 bình luận về “có bao nhiêu sô lẻ từ 1 đến 100 for i:=1 to n do ?”

1. Tổng số lẻ

   var kq,i: integer;

   begin

   for i:=1 to 100 do

   if not i mod 2 = 0 then inc(kq,i);

   write(‘Tong so le 1 den 100 la: ‘,kq);

   end.

   Bình luận

2. Program Hotboy;

   Uses crt;

   Var i,l,c : byte;

   Begin

   Clrscr;

   I:=0;c:=0;

   For i:=1 to 100 do

   If ( i mod 2=0) then inc(c) else inc(l);

   Write(‘so so le la’,l,’so so chan la’,c);

   Readln

   End.

   Bình luận