Вопрос по информатике:
В заданном тексте заменить все встречающиеся пары из одинаковых цифр, словом ‘две’.Введите текст, в котором нет цифр. Какой ответ выдаст программа? Внесите изменения в программу так, чтобы на этот случай выдавалось сообщение ‘в тексте нет цифр’
- 04.03.2018 06:46
- Информатика
- remove_red_eye 13889
- thumb_up 30
Ответы и объяснения 1
Var t: string;
f: boolean;
i: integer;
begin
t := '11рыба 122344 р22б2';
// readln(t);
i := Length(t)-1;
for i := Length(t)-1 downto 1 do
if (t[i] in ['0'..'9']) and (t[i] = t[i+1]) then begin
Delete(t, i, 2);
Insert('две', t, i);
f := true;
end;
if f then writeln(t)
else writeln('нет цифр');
end.
- 05.03.2018 12:12
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.