Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
5
Объяснение:
a<7 - true
a = a + 1, a = 3 + 1, a = 4
b = b + a, b = 4 + 1, b = 5
b = 5
пщояк 17 27 16 33 17
нщёп 15 27 7 17
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.
Популярные вопросы