Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Cho mảng A gồm N phần tử thuộc kiểu nguyên dương (N≤500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình:
a) Thủ tục nhập giá trị cho mảng A từ bàn phím.
b) Hàm kiểm tra số chia hết cho 3 hoặc 5
1:
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]='a' then inc(dem);
writeln('so cac ki tu a trong xau la: ',dem);
readln;
end.
2:
uses crt;
var b:array[1..250]of integer;
m,i:integer;
begin
clrscr;
write('m='); readln(m);
for i:=1 to m do
begin
write('b[',i,']='); readln(b[i]);
end;
{---------------------xu-ly---------------------}
writeln('cac so le la: ');
for i:=1 to m do
if b[i] mod 2=1 then write(b[i]:4);
readln;
end.
