Dasa
5 год назад
Переделать программу под ПаскальРазработать программу, которая для заданной строки 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(); }сам не знаю языка
ОТВЕТЫ
Антоанета
Oct 24, 2020
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.
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.
697
