Сколькораз во втором слове встречается первая буква первого слова.
uses crt-
varx,x1,i,c,dl,ch,n:integer-
word,word1,k:string-
label 1-
begin
clrscr-
writeln(‘Введите первое слово’)-
readln(word)-
writeln(‘Введите второе слово’)-
readln(word1)-
dl:=length(word1)-
k:=copy(word,1,1)-
ch:=0-
n:=pos(k,word1)-
1:if n>-0 then
begin
ch:=ch+1-
Delete(word1,1,n)-
dl:=length(word1)-
if dl>-0 then
begin
n:=pos(k,word1)-
goto 1-
end
end-
writeln(‘Во втором слове буква ‘,k,’ встречается’,ch,’ раз(а)’)-
end.