Question

Scrieți un program care numără câte litere de „a” conține o propoziție.(Pascal)

Answer 1

Răspuns:

program literaA;

var propozitia:string;

   nrl,i:integer;

begin

write('propozitia :');readln(propozitia);

nrl:=0;

for i:=1 to length(propozitia) do

       if ((propozitia[i]='a') or (propozitia[i]='A')) then

                                   nrl:=nrl+1;

write('Numar de a-uri ',nrl);

readln;

end.