Viết chương trình nhập vào số N từ bàn phím in ra màn hình chia hết cho 3

0 bình luận về “Viết chương trình nhập vào số N từ bàn phím in ra màn hình chia hết cho 3”

1. uses crt;
   var n,i,d : integer;
   a : array[1..100] of longint;
   begin clrscr;
   write(‘Nhap n :’); readln(n);
   d:=0;
   for i:=1 to n do begin
   write(‘Nhap a[‘,i,’]=’); readln(a[i]);
   end;
   for i:=1 to n do if a[i] mod 3 = 0 then write(a[i]:3);
   readln
   end.

   Bình luận

2. Uses crt;

   Var i,n :Integer;
   a:array [1..100] of integer;
   begin
   Readln(n);
   For i:=1 to n do
   read(a[i]);
   for i:=1 to n do
   If a[i] mod 3 = 0 then write(a[i]);
   end.

   Bình luận