Viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng100 Ví dụ 2 4 6 8 10 12-…100

0 bình luận về “Viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng100 Ví dụ 2 4 6 8 10 12-…100”

1. program So_chan;

   uses crt;
   var i: byte;
   begin
     for i:=1 to 100 do if (i mod 2=0) then Write(i,’ ‘);
   end.

   Bình luận

2. Program BTH;
   Uses Crt;
   var i:longint;
   Begin
           clrscr;
           For i:=1 to 100 do
           If i mod 2=0 then write(i,’ ‘);
           readln;
   end.

   Bình luận