Предмет: Информатика,
автор: allen14rus
Программа Паскаль
Пользователь вводит число. Вывести на экран сколько раз в числе встречаются подряд идущие цифры 23
Ответы
Автор ответа:
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
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
Похожие вопросы
Предмет: Математика,
автор: hvyfygf
Предмет: Английский язык,
автор: pozhitkinak
Предмет: Қазақ тiлi,
автор: artoymshershnev
Предмет: Алгебра,
автор: tira12
Предмет: Математика,
автор: Аноним