Переделать программку под ПаскальРазработать программку, которая для данной строчки

Переработать программку под Паскаль
Создать программку, которая для данной строчки s:
вставляет знак x после каждого вхождения знака y;
static void Main(string[] args)

Console.WriteLine("Введите строчку: ");
StringBuilder a = new StringBuilder(Console.ReadLine());
Console.WriteLine("Начальная строчка: " + a);
Console.WriteLine("Введите знак x: ");
char x = char.Parse(Console.ReadLine());
Console.WriteLine("Введите символ y: ");
char y = char.Parse(Console.ReadLine());
for (int i = 0; i lt; a.Length; ++i)
if (a[i] == x) a.Insert(i + 1, y); ++i;
Console.WriteLine("Модифицированная строчка: " + a);
Console.ReadKey();

сам не знаю языка

Задать свой вопрос
2 ответа
Var s1,s2:string; x,y:char; i:integer;
begin
writeln('Введите строчку:');
readln(s1);
writeln('Введите знак x:');
readln(x);
writeln('Введите знак y:');
readln(y);
s2:='';
for i:=1 to length(s1) do
 if s1[i]=y then s2:=s2+s1[i]+x else s2:=s2+s1[i];
writeln('Модифицированная строчка: ', s2); 
end.

Пример:
Введите строчку:
a+bc+def+abc=jkl
Введите знак x:
-
Введите знак y:
+
Модифицированная строка: a+-bc+-def+-abc=jkl
Var str: string;
var x,y: char;
var i: integer;
begin 
  writeln('Введите строчку:'); 
  readln(str); 
  writeln('Введите знак x:'); 
  readln(x); 
  writeln('Введите знак y:'); 
  readln(y); 
  i:=1; 
  while i lt;= length(str) do 
    if str[i] = y then 
    begin   
      insert(x, str, i + 1);   
      i := i + 2; 
    end 
    else   
      i:= i + 1; 
  writeln(str);    
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт