Question

Напишите программу, которая удаляет из введенной строки любой введенный с клавиатуры символ. pascal.abc даю 50 баллов срочно!!!!!

Answer 1

Ответ:

Тут значительно легче без процедур решить. Вот, получайте!

program prim;

Var

s : string;

t : char;

k: integer;

begin

writeln ('Введите строку');

readln (s);

writeln ('Введите символ, который надо удалить');

readln (t);

while pos(t,s)<>0 do

begin

k:=pos(t,s);

Delete(s, k, 1);

end;

writeln ('Результат после удаления: ');

writeln(s);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая удаляет из введенной строки указанный символ:

pascalCopy code
program RemoveCharacter;

var
  inputString: string;
  charToRemove: char;
  resultString: string;
  i: integer;

begin
  writeln('Введите строку:');
  readln(inputString);

  writeln('Введите символ для удаления:');
  readln(charToRemove);

  resultString := '';

  for i := 1 to length(inputString) do
  begin
    if inputString[i] <> charToRemove then
      resultString := resultString + inputString[i];
  end;

  writeln('Результат:', resultString);
end.

Скопируйте этот код в среду разработки Pascal (например, Free Pascal), скомпилируйте и запустите. Программа попросит ввести строку и символ для удаления, а затем выведет результат без указанного символа.