Вопрос, который вызвал трудности

С клавиатуры вводят слово и символ. Составьте программу, которая: а) проверяет, есть ли в этом слове данный символ; б) определяет позицию заданного символа; в) подсчитывает колличество вхождений заданного символа.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Разное». Ваш вопрос звучал так:

С клавиатуры вводят слово и символ. Составьте программу, которая: а) проверяет, есть ли в этом слове данный символ; б) определяет позицию заданного символа; в) подсчитывает колличество вхождений заданного символа.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

var
slovo,simval:string;
i,k:integer;
begin
k:=0;
write(vvedite slovo);
readln(slovo);
write(vvedite simval);
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(YES vstre4aets9,k, raz, na pozicii,i)else writeln(NO);
writeln;
end.


вот в одном решении