Вопрос по информатике:
НА ПАСКАЛЕ
Дана строка. Найдите в этой строке второе вхождение буквы f, и выведите индекс этого вхождения. Если буква f в данной строке встречается только один раз, выведите число -1, а если не встречается ни разу, выведите число -2.
Пожаловаться
- 16.07.2017 06:11
- Информатика
- remove_red_eye 12204
- thumb_up 35
Ответы и объяснения 2
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.
Пожаловаться
- 17.07.2017 03:54
- thumb_up 3
//PascalABC.Net 3.2
begin
var s:=readstring('Введите строку');
if 'f' in s then begin
delete (s, pos('f', s), 1);
if 'f' in s then write (pos('f', s)+1) else write (-1);
end else write (-2);
end.
begin
var s:=readstring('Введите строку');
if 'f' in s then begin
delete (s, pos('f', s), 1);
if 'f' in s then write (pos('f', s)+1) else write (-1);
end else write (-2);
end.
Пожаловаться
- 18.07.2017 02:07
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы