Bài 3. Chương trình máy tính và dữ liệu

HN

Đề 14 : Viết chuingw trình nhập n số nguyên . Đếm các số vừa chia hết cho 2 vừa chia hết cho 3 . Xuất kết quả ra màn hình

Help me mai mình kiểm tra thực hành rồi giúp mình với nha everyody -.- !!

NH
9 tháng 5 2019 lúc 20:59

uses crt;
Var a:array[1..100000] of longint;
i,n,d:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(d);
write('Co ',d,' so vua chia het cho 2 vua chia het cho 3');
readln
end.

Bình luận (0)

Các câu hỏi tương tự
HN
Xem chi tiết
HN
Xem chi tiết
28
Xem chi tiết
HN
Xem chi tiết
MT
Xem chi tiết
HN
Xem chi tiết
HN
Xem chi tiết
HN
Xem chi tiết
HN
Xem chi tiết