1.С клавиатуры вводят слово и симвал.Составьте программу ,которая

а)проверяет,есть ли в этом слове данный симвал.

б)определяет позицию данного символа.

в)подсчитывает количество входов данного символа.

2.С клавиатуры вводят ряд и слово.Составьте программу ,которая

а)определяет позицию данного слова.

Сделайте что сможете пожалуйста!!!!!

 

 

 

 

 Вот первая программа. Вторую сейчас пишу.

program p_1;var a,b:string; i,k:integer; begin k:=0; write('Введите слово '); readln(a); write('Введите символ '); readln(b); for i:=1 to length(a) do begin if a[i]=b then k:=k+1; if a[i]=b then writeln(i,' '); end; if k>=1 then writeln('Да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('Нет'); end.