Составьте программу, которая позволяет удалить символ t из строки S. Символ t и строка S вводятся с клавиатуры. PascalABC
Ответы
program RemoveChar;
var
S: string; // строка
t: char; // символ, который нужно удалить
i: integer;
begin
writeln('Введите строку S:');
readln(S);
writeln('Введите символ t:');
readln(t);
i := 1;
while i <= length(S) do
begin
if S[i] = t then
begin
// удаляем символ t
delete(S, i, 1);
end
else
begin
// переходим к следующему символу
i := i + 1;
end;
end;
writeln('Строка S без символа t:');
writeln(S);
end.
В этой программе мы сначала считываем строку S и символ t с клавиатуры. Затем мы используем цикл while для перебора всех символов строки S. Если текущий символ равен t, то мы удаляем его с помощью функции delete. Если текущий символ не равен t, то мы переходим к следующему символу. После завершения цикла мы выводим строку S на экран.