xây dựng chương trình con để lấy số ký tự 'a' trong một xâu
2 câu trả lời
program dem_a;
uses crt;
var s:string;
{---Chuong-trinh-con---}
function dema(st:string):byte;
var i:byte;
begin
dema:=0;
for i:=1 to length(st) do
if st[i]='a' then dema:=dema+1;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap xau: '); readln(s);
write('=> Co ',dema(s),' ki tu a');
readln;
end.
var d, i: byte;
s: string;
Procedure dem;
Begin
d:=0;
For i:=1 to length(s) do
if s[i]='a' then d:=d+1;
End;
Begin
Write('nhap xau: '); readln(s);
Dem;
Write('co ', d, ' ki tu a');
Readln
End.
