Vtc nhập vào n phần tử in ra màn hình các số chia hết cho 2,3,5

0 bình luận về “Vtc nhập vào n phần tử in ra màn hình các số chia hết cho 2,3,5”

1. Program qtruong;
   Uses crt;
   Var i, n:integer;
         D:array[1..100000] of longint;
   Begin
   Clrscr;
   Write(‘Nhap n = ‘); readln(n);
   For i:=1 to n do
   Begin
         Write(‘D[‘,i,’]=’); 

         Readln(D[i]);

   End;
   For i:=1 to n do if D[i] mod 2 = 0 then writeln(‘Cac so chia het cho 2 la: ‘,D[i]);
   For i:=1 to n do if D[i] mod 3 = 0 then writeln(‘Cac so chia het cho 3 la: ‘,D[i]);
   For i:=1 to n do if D[i] mod 5 = 0 then writeln(‘Cac so chia het cho 5 la: ‘,D[i]);
   Readln
   End.

   Bình luận

2. {sử dụng mảng}

   program ct;

   uses crt;

   var a:array[1..10000] of integer;

   n,i:integer;

   begin

   clrscr;

   write(‘nhap n : ‘);

   readln(n);

   for i:=1 to n do begin

                     write(‘nhap a[‘,i,’] : ‘);

                     readln(a[i]);

   end;

   {chia hết cho 2}

   write(‘cac so chia het cho 2 la : ‘);

   for i:=1 to n do if a[i] mod 2  = 0 then write(a[i]:5);

   {chia hết cho 3}

   write(‘cac so chia het cho 3 la : ‘);

   for i:=1 to n do if a[i] mod 3 = 0 then write(a[i]:5);

   {chia het cho 5}

   write(‘cac so chia het cho 5 la : ‘);

   for i:=1 to n do if a[i] mod 5 = 0 then write(a[i]:5);

   readln;

   end.

   Bình luận