viết chương trình tính tổng các số lẻ nhỏ hơn1000

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

1. var i,kq:integer;

   begin

   for i:=1 to 1000 do 

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

   write(‘Tong cac so le nho hon 1000 la: ‘,kq);

   end.

   Bình luận

2. Program tong_le;

   Uses crt;

   Var S,i: integer;

   Begin

   S:=0;

   For i:=1 to 999 do  If i mod 2 =1 then S:=S+i;

   Write(‘Tong la:’,S); readln;

   End.

   Bình luận