Tính tổng các số chia hết cho 3 trong khoảng từ 5 đến 100

0 bình luận về “Tính tổng các số chia hết cho 3 trong khoảng từ 5 đến 100”

1. var s,i:integer;

   begin

   s:=0;

   for i:=5 to 100

   if i mod 3=0 then s:=s+i;

   write(s);readln;

   end.

   Bình luận

2. var i: byte;

         s: word;

   Begin

       S:=0;

       For i:=5 to 100 do if (i mod 3 = 0) then

          S:=s+i;

       Write(‘tong la ‘, s);

       Readln

   End.

   Bình luận