Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số chẵn từ 0 đến N

0 bình luận về “Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số chẵn từ 0 đến N”

1. uses crt;

   var n,i:integer;

   begin

   clrscr;

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

   writeln(‘Cac so chan tu 0 den ‘,n,’ la: ‘);

   for i:=0 to n do

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

   readln;

   end.

   Bình luận

2. uses crt; {khai bao’ thu vien crt}

   var n,i,dem:integer;

   BEGIN

        clrscr;{ cau lenh xoa man hinh};

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

        dem:=0;

        for i:=1 to n do

          begin

            if i mod 2=0 then

              begin

                write(i:4);

                dem:=dem+1;

              end;

            if dem=15 then

              begin

                dem:=0;

                writeln;{in duoc 15 so thi xuong dong};

              end;

          end;

        readln

   END.

   Bình luận