Задать вопрос
9 августа, 02:35

Программа Паскаль

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

+3
Ответы (1)
  1. 9 августа, 06:25
    0
    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
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Программа Паскаль Пользователь вводит число. Вывести на экран сколько раз в числе встречаются подряд идущие цифры 23 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы