Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
false - не правда, ложь!
фамилия
имя
отчество
var ch,n,i: longint;
ch1,s: string;
begin
read(s,ch);
n: =length(s);
writeln(n,' ',ch);
str(ch,ch1);
for i: =1 to n do if s[i]=ch1 then write(i,' ');
end.
Популярные вопросы