Nhập vào số nguyên n in ra màn hình các số chẵn

0 bình luận về “Nhập vào số nguyên n in ra màn hình các số chẵn”

1. Program Hotboy;

   Uses crt;

   var n,i:integer

   Begin

   Clrscr;

   Write(‘Nhap so n tu ban phim :’);

   Readln(n);

    For i:=1 to n do

           If (i mod 2=0 ) then Write(‘cac so chan la’,i,’ ‘);

           Else

       Write(‘cac so le la’,i);

   Readln

   End.

   Xin hay nhất

   Bình luận

2. Begin

   Program Hotboy;

   Uses crt;

   var n,i:integer

   Begin

   Clrscr;

   Write(‘Nhap so n tu ban phim :’);

   Readln(n);

    For i:=1 to n do

           If (i mod 2=0 ) then Write(‘cac so chan la’,i,’ ‘);

           Else

       Write(‘cac so le la’,i);

   Readln

   End.

   Bình luận