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

Bởi

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

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

  1. 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

    Bình luận

Viết một bình luận