Задача не сложная на тему строки.

@den-sedoy · Регистрация: 20.05.2009

Создайте программу, которая запрашивает тестовую строку и заменяет все слоги "ра" на "пар".
Протокол:
Введите строку: травушка-муравушка с утра поднялась
Получилось: тпарвушка-мупарвушка с утпар поднялась

@NickA · 20.05.2009, 17:22

Pascal

uses crt;
var i: integer;
  s: string;
begin
clrscr;
write('Input string: ');
ReadLN(s);
for i:=Length(s) downto 2 do
  begin
  if (s[i]='а')and(s[i+1]='*')
    then begin
    s[i+1]:='а';
    s[i]:='*';
    Insert('Ї', s, i);
    end;
  end;
Write('Result: ');
writeln(s);
readkey;
end.

@den-sedoy 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 8
		1
	Задача не сложная на тему строки. 20.05.2009, 16:51. Показов 1343. Ответов 1 Метки нет (Все метки) Создайте программу, которая запрашивает тестовую строку и заменяет все слоги "ра" на "пар". Протокол: Введите строку: травушка-муравушка с утра поднялась Получилось: тпарвушка-мупарвушка с утпар поднялась __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Задача не сложная на тему строки.

Решение