Viết chương trình nhập vào 1 số nguyên 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ố nguyên 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 so nguyen N: ‘); readln(n);

      i:=0;

      write(‘Cac so chan tu 0 toi ‘, N, ‘ la: ‘);

      while (i<=N) do

                begin

                write(i:4);

                i:=i+2;

                end;

      readln;

   End.

   Bình luận

2. uses crt;

   var N, i: integer;

   Begin

      clrscr;

      write(‘Nhap so nguyen N: ‘); readln(n);

      i:=0;

      write(‘Cac so chan to

                begin

                write(i:4);

                i:=i+2;

                end;

      readln;

   End.

   Bình luận