Bài 17: Chương trình con và phân loại

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Văn Dũng

cho 1 dãy số nguyên n và 1 sso nguyên k kiểm tra xem trong dãy vừa nhâp có bao nhiêu phầm tử chia hết cho k

sử dụng mảng và trương trình con ( k =3. =5.=7) e cảm ơn giú hộ e mai e thi học kì r

Đoàn Xuân Sơn
12 tháng 5 2019 lúc 21:41

program zoo;
var
i,n,k,d:integer;
a:array[1..32000] of integer;
function hello(x,y:integer):boolean;
begin
hello:=false;
if x mod y = 0 then hello := true
end;
begin
write(' nhap n: '); readln(n);
for i:= 1 to n do
begin
write(' nhap a[',i,'] = '); readln(a[i]);
end;
write(' nhap k = '); readln(k);

d:=0;
for i:= 1 to n do
if hello(a[i],k) = true then d:=d+1;
write(' so luong so chia het cho k la : ',d);
readln;
end.

Đoàn Xuân Sơn
12 tháng 5 2019 lúc 20:19

const fi='k.inp';

fo='k.out';

var

i,n,k,d:integer;
a:Array[1..32000] of integer;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:= 1 to n do

read(f,a[i]);

readln(f);

read(f,k);

close(f);

assign(f,fO);

rewrite(f);

d:=0;

for i:= 1 to n do
if a[i] mod k = 0 then inc(d);

write(f,' co ',d,'so chia het cho',k);

close(f);

end.

Đoàn Xuân Sơn
12 tháng 5 2019 lúc 20:28

bạn ơi chỗ var thêm f:text nha bạn

Nguyễn Văn Dũng
12 tháng 5 2019 lúc 20:30

bạn ơi đơn giản ik tin lớp 11 ý


Các câu hỏi tương tự
Đặng Thị Kiều Oanh
Xem chi tiết
Bảo Trâm
Xem chi tiết
Đạt Trần
Xem chi tiết
Đạt Tạ
Xem chi tiết
Đặng dân
Xem chi tiết
Thúy Hà
Xem chi tiết
Tran Ngô
Xem chi tiết
Thúy Hà
Xem chi tiết
Như Thuần Nguyễn Đặng
Xem chi tiết