Question

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

Answer 1

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.