Переделать программу под Паскаль
Разработать программу, которая для заданной строки 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();
}
сам не знаю языка
Answers & Comments
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
Verified answer
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.