• 
  • 04 January 2021
  Информатика
  • Автор: lili1511

  

  Паскаль
  Дана строка. Если в этом числе буква f встречается только один раз, выведите её индекс. Если она встречается два и более раз, выведите индекс её первого и последнего появления. Если буква f в данной строке не встречается, ничего не выводите.

• 
  • 04 January 2021
  • Ответ оставил: Каосэс

  var i, n, i1, i2: integer;
  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.
  
  

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (30.03.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы