viết chương trình in ra màn hình các số chia hết cho 2 nhỏ hơn n, với giá trị n nhập từ bàn phím

0 bình luận về “viết chương trình in ra màn hình các số chia hết cho 2 nhỏ hơn n, với giá trị n nhập từ bàn phím”

1. Uses crt;

   Var n,i : integer;

   Begin

   Write(‘nhap so n’);

   Readln(n);

   i:=1 ;

   While i<n do

   Begin

   If (i mod 2=0) then write(i,’ ‘);

   End;

   Readln

   End.

   Bình luận

2. Program Hotboy;

   Uses crt;

   Var n,i : integer;

   Begin

   Write(‘nhap so n’);

   Readln(n);

   i:=1 ;

   While i<n do

   Begin

   If (i mod 2=0) then write(i,’  ‘);

   End;

   Readln

   End.

   Bình luận