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

Ответы 3

  • выводит ошибку
    • Автор:

      pookie
    • 6 лет назад
    • 0
  • Исправил ответ, попробуйте заново.
  • var i, n, i1, i2: integer;s: string;beginreadln(s);n := length(s);i1:=0;i2:=0;for i:=1 to n doif s[i]='f' thenbeginif i1<1 theni1:=ielsei2:=i;end;if i1>0 thenif i2>0 thenwriteln('Первая и последняя позиции f = ', i1, ' и ', i2)elsewriteln('Единственная позиция f = ', i1);end.
    • Автор:

      cason
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years