Viêts chương trình nhập vào một xâu Cho biết trong xâu có bảo nhiêu chữ a ( không phân biệt chữ hoa, chữ thường)
2 câu trả lời
uses crt;
var s: string;
d: integer;
begin
clrscr;
write ('nhap xau: '); readln (s);
for i:=1 to length(s) do
if (s[i]='a') or (s[i]='A') then d:=d+1;
writeln ('trong xau co ',d,' chu a');
readln;
end.
gãy tay vẫn giữ phong độ :))
bấm điện thoại 1 ngón ma tốc độ
program chu_a;
uses crt;
var s:string;
i,d:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do
if (s[i]='a') or (s[i]='A') then d:=d+1;
write('So ki tu a (khong phan biet) la: ',d);
readln;
end.
