Кокова позиция буквы "О" в члове "Слон" (решить в Pascal).
Кокова позиция буквы "О" в члове "Слон" (решить в Pascal).
Гость
Ответ(ы) на вопрос:
Гостьвот
var
s,x : string;
i,d,krot : longint;
begin
readln(s);
x:='о';
krot:=0;
d:=length(s);
for i:=1 to d do
if pos(x,s[i])<>0
then writeln(i);
end.
Не нашли ответ?
Похожие вопросы