Viết chương trình nhập vào N số nguyên in ra màn hình các số chẵn ? ≈ ω ≈

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

1. Uses crt;
   Var a,n:integer;
   Begin
    Clrscr;

   Writeln(‘Nhap so N=’);  Readln(n);

   Writeln(‘Cac so chan trong khoang tu 1 toi ‘,n,’ la:’);
   For a:=1 to n do if i mod 2 = 0 then write(a:4);
   Readln
   End.
   *Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé! Thanks
   p/s: Chỗ nào khó hiểu, comment hỏi đáp!

   Bình luận

2. program so_chan;

   uses crt;

   var A:array[1..1000] of integer;

         n,i:integer;

   begin

          clrscrl;

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

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                 end;

          for i:=1 to n do

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

          readln;

   end.

   Bình luận