Laigas
4 год назад
НА ПАСКАЛЕДана строка. Найдите в этой строке второе вхождение буквы f, и выведите индекс этого вхождения. Если буква f в данной строке встречается только один раз, выведите число -1, а если не встречается ни разу, выведите число -2.
ОТВЕТЫ
Artemij
Oct 24, 2020
var
f:char;
s:string;
i,k:integer;
begin
readln(s);
k:=0;
for i:= 1 to length(s) do
begin
if s[i]='f' then
k:=k +1;
if k=2 then
begin
writeln(i);
break;
end;
end;
if k=1 then writeln('-1');
if k=0 then writeln('-2');
readln;
end.
f:char;
s:string;
i,k:integer;
begin
readln(s);
k:=0;
for i:= 1 to length(s) do
begin
if s[i]='f' then
k:=k +1;
if k=2 then
begin
writeln(i);
break;
end;
end;
if k=1 then writeln('-1');
if k=0 then writeln('-2');
readln;
end.
592
Смежные вопросы:
