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 ạ!

0 bình luận về “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 ạ!”

1. 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

   Bình luận

2. 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.

   Bình luận