{task string36}
var
  s,s1,s2:string;
  p:byte;
begin
  write('Введите строку S=');
  readln(s);
  write('Введите строку S1=');
  readln(s1);
  write('Введите строку S2=');
  readln(s2);
  if pos(s1,s)<>0 then
    begin
      p:=pos(s1,s);
      delete(s,p,length(s1));
      insert(s2,s,p);
      writeln('Полученная строка=',s);
    end
  else
    writeln('Нет вхождений строки s1 в строку s');
  readln;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

30.05.2013, 20:57

Ответы с готовыми решениями:

Перевести 10 строк паскаля в C# (можно C++)
Переведите с паскаля на C# (можно и С++) пожалуйста! Ведро кармы в подарок program p; var ol,...

Как можно перевести этот код с паскаля в с++?
uses crt; const n=10; var a:array of integer; i,j,p,k:byte; begin...

Как можно перевести этот код с паскаля в с++?
program razbienie_mnozhestwa(input,output); var i,j,k,n:byte;wper:arrayof boolean;...

Как можно перевести фрагмент кода с паскаля в с++?
begin j:=1; {номер первого блока} repeat write('( '); for i:=j to n do if blok=j then...

	30.05.2013, 20:57

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.05.2013, 20:57

Помогаю со студенческими работами здесь

Каким образом можно перевести код Паскаля в код Фортран?
Здравствуйте уважаемые программисты! Может быть банальная, но довольно сложная проблема - перевод...

Перевести с паскаля на C++
помогите перевести с паскаля на C++ , очень надо.:) var n,i,j,k,l:longint; begin readln(n);...

Перевести с паскаля
Помогите пожалуйста перевести код с паскаля на Perl const n=5; var a:array of integer; ...

перевести в си++ из паскаля
var n:longint; i,c:integer; s:string; A:array of boolean; begin write('Введите N:...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх