Bài 13: Kiểu bản ghi

Quyên Bùi

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

Trần Ngọc Minh Khoa
1 tháng 2 2019 lúc 11:28

(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)

Bình luận (1)

Các câu hỏi tương tự
0o0 Nhok kawaii 0o0
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
hoai thu
Xem chi tiết
Anh Lê duy
Xem chi tiết
le khoa thanh
Xem chi tiết
trần đình quý
Xem chi tiết
nà ní
Xem chi tiết