Question

Переделать программу под паскаль разработать программу, которая для заданной строки s: • вставляет символ x после каждого вхождения символа y; static void main(string[] args) { console.writeline("введите строку: "); stringbuilder a = new stringbuilder(console.; console.writeline("исходная строка: " + a); console.writeline("введите символ x: "); char x = char.parse(console.; console.writeline("введите символ y: "); char y = char.parse(console.; for (int i = 0; i < a.length; ++i) if (a[i] == x) { a.insert(i + 1, y); ++i; } console.writeline("измененная строка: " + a); console.readkey(); } сам не знаю языка

Answer 1

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

Answer 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.