{recebe uma palavra ou frase, e uma letra, e diga quantas letras tem na cadeia de
caracteres}
Program Pzim ;
var
frase:string; {variavel que recebe a cadeia de caracteres}
letra:char;
i, conta, j:integer; { "i", contador do for, "j" recebe a quant. de
caracteres da cadeia e conta, recebe a quantidade de letraas a}
Begin
writeln('Digite uma palavra ou frase : '); {solicita que digite os caracteres}
readln(frase); {usar o readln, pois o read para no primeiro espaço e em frases}
writeln('Digite uma letra'); {nçao ia receber todos os caracteres}
read(letra);
j:=length(frase); {a função length vai contar quantos caractes existe na variavel
frase e atribuir esse numero a variavel j}
for i:=1 to j do {'i' vai de um até 'j'}
begin
if (frase[i] = letra) then {se na posição [i], de 1 até 'j' ,
for igual a letra 'a', conta recebe +1}
conta:=conta+1;
end;
writeln('na expressão : "',frase,'"'); {mostra a frase digitada}
writeln('Existem ',conta, ' letras "', letra,' "'); {mostra quantos caracteres "a" existe}
End.
