Вопрос по информатике:
Программа Паскаль
Пользователь вводит число. Вывести на экран сколько раз в числе встречаются подряд идущие цифры 23
- 08.09.2018 20:02
- Информатика
- remove_red_eye 19410
- thumb_up 21
Ответы и объяснения 1
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
- 09.09.2018 09:10
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.