Дана строка. Найдите в этой строке второе вхождение буквы f, и выведите индекс этого...

0 голосов
249 просмотров

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


Информатика (16 баллов) | 249 просмотров
Дан 1 ответ
0 голосов

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.

(18 баллов)
0

А на python?

0

Я изучаю только Паскаль