Ответы
Ответ дал:
0
var
s:string;
i:integer;
begin
Write('->'); Readln(s);
for i:=1 to s.Length do
if s[i]='е' then Write(i,' ')
end.
Пример
->зеленодлинношеее
2 4 14 15 16
s:string;
i:integer;
begin
Write('->'); Readln(s);
for i:=1 to s.Length do
if s[i]='е' then Write(i,' ')
end.
Пример
->зеленодлинношеее
2 4 14 15 16
Похожие вопросы
2 года назад
6 лет назад
9 лет назад
9 лет назад