c1:viết chương trình nhập vào 1 xâu. hãy đưa ra màn hình số lượng các kí tử "a"
input: nguyên van anh
out put: tong so cac ki tu a la:2
C2. viết chương trình nhập vào mảng 1 chiều B gôm M số dương( N<_ 250).hãy dưa ra màn hình các số lẻ trong đây
input: N=10 và dây A:12 13 14 15 16 17 18 19 20 21
output: cac so le la 13 15 17 19 21
...
Đọc tiếp
c1:viết chương trình nhập vào 1 xâu. hãy đưa ra màn hình số lượng các kí tử "a"
input: nguyên van anh
out put: tong so cac ki tu a la:2
C2. viết chương trình nhập vào mảng 1 chiều B gôm M số dương( N<_ 250).hãy dưa ra màn hình các số lẻ trong đây
input: N=10 và dây A:12 13 14 15 16 17 18 19 20 21
output: cac so le la 13 15 17 19 21
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.