Viết chương trình in ra màn hình phần tử có giá trị là bội của 2 và 5

0 bình luận về “Viết chương trình in ra màn hình phần tử có giá trị là bội của 2 và 5”

1. uses crt;

   var n,i:integer;

         a:array[1..100] of integer;

   begin

       clrscr;

       readln(n);

       for i:=1 to n do readln(a[i]);

       for i:=1 to n do

       begin

           if a mod 2 = 0 and a mod 5 = 0 then write(a:2);

       end;

       readln;

   end.

   Bình luận

2. program BT;

   uses crt;

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

         n,i: integer;

   Begin

            clrscr;

            write(‘Nhap so phan tu: ‘); readln(n);

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

            end;

            write(‘Phan tu la boi cua 2 va 5: ‘);

            for i:=1 to n do

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

            readln

   End.

   Bình luận