Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tuyên Ngô

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

 

Pascal nhá mn!

Nguyễn Lê Phước Thịnh
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.

Kirito Asuna
1 tháng 9 2022 lúc 20:26

số 6

 


Các câu hỏi tương tự
my trần
Xem chi tiết
Nguyễn Hồng Anh
Xem chi tiết
poka
Xem chi tiết
Thuy Ngan
Xem chi tiết
QUANH
Xem chi tiết
Phạm Gia Bình
Xem chi tiết
QUANH
Xem chi tiết
Phạm thị thảo ly
Xem chi tiết
Lê Thùy Ánh
Xem chi tiết
phòng ha
Xem chi tiết