Viết chương trình nhập vào một xâu. Đếm xem trong xâu đó có bao nhiêu kí tự a. Mọi người giúp em với ạ!
2 câu trả lời
Program nhap xau;
Var X:string;
i, dem : integer;
Begin
Readln(X);
For i:=1 to length(X) do
If X[i] = 'a' the dem:=dem+1;
Writeln ('vayco',dem,'kitua'); readln
Program nhap_xau;
Var X:string;
i, dem : integer;
Begin
Readln(X);
For i:=1 to length(X) do
If X[i] = 'a' the dem:=dem+1;
Writeln ('vayco',dem,'kitua'); readln
End.
