Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Программа Паскаль
Пользователь вводит число. Вывести на экран сколько раз в числе встречаются подряд идущие цифры 23

Ответ оставил Гость

Var
  s: string;
  i, n, k: integer;

begin
  Write(Введите число: ); Readln(s);
  k := 0; n := Length(s); i := 1;
  repeat
    if s[i] + s[i + 1] = 23 then begin k := k + 1; i := i + 2 end
    else i := i + 1
  until i >= n;
  Writeln(Количество повторений "23" равно , k)
end.

Тестовое решение:
Введите число: 546423452323023
Количество повторений "23" равно 4