TN

Tìm các số chẵn chia hết cho 3 tại vị trí lẻ.

 

Pascal nhá mn!

NT
1 tháng 9 2022 lúc 20:23

uses crt;

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

i,n:integer;

begin

clrscr;

readln(n);

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

for i:=1 to n do 

  if ((i mod 2=1) and (a[i] mod 6=0)) then write(a[i]:4);

readln;

end.

Bình luận (0)
KA
1 tháng 9 2022 lúc 20:26

số 6

 

Bình luận (0)

Các câu hỏi tương tự
MT
Xem chi tiết
NA
Xem chi tiết
H24
Xem chi tiết
TN
Xem chi tiết
H24
Xem chi tiết
PB
Xem chi tiết
H24
Xem chi tiết
PL
Xem chi tiết
LA
Xem chi tiết
PH
Xem chi tiết