Паскаль
Дана строка. Если в этом числе буква f встречается только один раз, выведите её индекс. Если она встречается два и более раз, выведите индекс её первого и последнего появления. Если буква f в данной строке не встречается, ничего не выводите.
Дана строка. Если в этом числе буква f встречается только один раз, выведите её индекс. Если она встречается два и более раз, выведите индекс её первого и последнего появления. Если буква f в данной строке не встречается, ничего не выводите.
More Questions From This User See All
Answers & Comments
s: string;
begin
readln(s);
n := length(s);
i1:=0;
i2:=0;
for i:=1 to n do
if s[i]='f' then
begin
if i1<1 then
i1:=i
else
i2:=i;
end;
if i1>0 then
if i2>0 then
writeln('Первая и последняя позиции f = ', i1, ' и ', i2)
else
writeln('Единственная позиция f = ', i1);
end.