Дана строка. Найдите в этой строке второе вхождение буквы f, и выведите индекс этого вхождения. Если буква f в данной строке встречается только один раз, выведите число - 1, а если не встречается ни разу, выведите число - 2

Question

Информатика

Антонидка

7 марта, 17:36

Дана строка. Найдите в этой строке второе вхождение буквы f, и выведите индекс этого вхождения. Если буква f в данной строке встречается только один раз, выведите число - 1, а если не встречается ни разу, выведите число - 2

+5

Ответы (1)

Знаете ответ?

Юлия · Answer 1

Var

f:char;

s:string

i. k:integer;

begin

readln (f, s) ;

k:=0;

for i: = 1 to length (s) do begin

if s[i]=f then k:=k+1;

if k=2 then writeln (i) ;

end;

if k=1 then writeln ("-1") ;

if k=0 then writeln ("-2") ;

end.