В заданном тексте заменить все встречающиеся пары из одинаковых цифр, словом ‘две’.Введите текст, в котором нет цифр. Какой ответ выдаст программа? Внесите изменения в программу так, чтобы на этот случай выдавалось сообщение ‘в...
В заданном тексте заменить все встречающиеся пары из одинаковых цифр, словом ‘две’.Введите текст, в котором нет цифр. Какой ответ выдаст программа? Внесите изменения в программу так, чтобы на этот случай выдавалось сообщение ‘в тексте нет цифр’
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы