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

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

Студворк — интернет-сервис помощи студентам

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

@c00le® · 20.05.2009, 16:52

Pascal

program trav;
uses crt;
var s,tmp:string;
    x:integer;
begin
clrscr;
tmp:='par';
  readln(s);
     x:= pos('ra',s);
  While x<>0 do
  begin
     delete(s,x,2);
     insert(tmp,s,x) ;
     x:=pos('ra',s);
  end;
  writeln(s);
end.

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

Опции темы

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

Решение