Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
a) 3
б) 0
в) 4
как то так)
майор - артиллерист капитан - летчик лейтенант - связист старшина - минометчик сержант - сапер ефрейтор - танкист
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.
Популярные вопросы