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)

Question

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)

hiennhi · Answer

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 độ

anhthu · Answer

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.