var slovo,simval:string; i,k:integer; begin k:=0; write('Введите имя и фамилию '); readln(slovo); write('Введите символ '); readln(simval); for i:=1 to length(slovo) do begin if slovo[i]=simval then k:=k+1; if slovo[i]=simval then writeln(i,' '); end; if k>=1 then writeln('Да, встречается ',k,' раз, на позиции ',i)else writeln('Нет'); end.
Я немножко перевыполнил) От показывает есть симаол или нет, если есть то сколько раз он входит и на какой позиции...
В какой оболочке земли живёт большинство живых организмов?
Из каких неживых частей состоит экосистема
На какие расы делятся население земли
Определение статуса военнослужащего (краткий ответ!!)
Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.