viết chương trình in ra số chẵn nhỏ hơn hoặc bằng n(với n được nhập từ bàn phím)

0 bình luận về “viết chương trình in ra số chẵn nhỏ hơn hoặc bằng n(với n được nhập từ bàn phím)”

1. Program so_chan;
   Use crt;
   Var n, i: integer;
   Begin
   clrscr;
   Write(‘Nhap so n =’); readln(n);
   For i:=1 to n do
   Begin
   if i mod 2 = 0 then
   write(i:6);
   end;
   readln;
   end.

   Bình luận

2. var n,i:longint;

   begin

   write(‘Nhap n: ‘); readln(n);

   for i:=1 to n do

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

   readln;

   end.

   Bình luận