Question

Nhập dãy số n, n<100 .Tìm số vừa chia hết cho 2 vừa chia hết cho 3, in bảng ra màng hình.

Help me☺

Answer 1

(số vừa chia hết cho 2 mà vừa chia hết cho 3 thì sẽ chia hết cho 6)

var array: K[1..100] of integer;

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

j,i,n: integer;

begin

writeln ('nhap n'); readln (n);

repeat

writeln ('nhap lai'); readln(n);

until (n<100);

j:=1;

for i:= 1 to n do

begin

writeln ('nhap phan tu thu ',i); readln (k[i]);

if k[i] mod 6 = 0 then

begin

t[j]:=k[i];

j:=j+1;

end;

end;

for i:= 1 to j do

if i mod 10 = 0 then writeln(t[i]) else write(t[i],' ');

readln;

end.

(vì bảng mình không biết là bao nhiêu số 1 dòng nên mình lấy đại 10 nha, mình chỉ học mảng 1 chiều)