• Переделать программу под Паскаль
    Разработать программу, которая для заданной строки 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 < a.Length; ++i)
    if (a[i] == x) { a.Insert(i + 1, y); ++i; }
    Console.WriteLine("Измененная строка: " + a);
    Console.ReadKey();
    }
    сам не знаю языка

Ответы 2

  • 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 <= 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.
    • Автор:

      andy955
    • 5 лет назад
    • 0
  • var s1,s2:string; x,y:char; i:integer;beginwriteln('Введите строку:');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
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years