In ra các số chia hết cho 3 trong khoảng từ 5 đến 100

var i: byte;

      s: word;

Begin

   S:=0;

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

      Begin

          Write(i, ‘ ‘);

          s:=s+i;

      End;

   Writeln;

   Write(‘tong la ‘, s);

   Readln

End. 

CHÚC BN HOK TỐT!!!

@Trangvu689