• написать алгоритм и программу которая определяет сколько раз в данном слове встречается буквосочитание "пол"

Ответы 1

  • function checkstring( s:string ): integer;var i, k, len: integer;begin  len := length(s);k := 0;for i := 1 to len dobeginif ( s[i] = 'п' ) thenif s[ i + 1 ] = 'о' thenif s[ i + 2 ] = 'л' then inc(k);end;checkstring := k;end;var str: string;rez: integer;beginwrite('Введите слово: ');readln(str);rez := checkstring(str);if rez > 0 then writeln('Буквосочетание "пол" встречается в слове в количестве: ', rez)else writeln('Буквосочетание "пол" в слове не встречается');end.
    • Автор:

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

Войти через Google

или

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

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

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