Question

Написать в Паскаль Турбо следующее задание: Удалить из строки W все буквы, соответствующие первой букве имени разработчика программы. Вывести на экран символьную строку до и после изменения, а также количество удаленных символов.

Answer 1

program abcd;

var

 s: string[254];

 c: string[1];

 i: byte;

begin

 Readln(s); { строка }

 Readln(c); { буква }

 repeat

   i := Pos(c, s);

   if i > 0 then

     Delete(s,i,1);

 until i = 0;

 Writeln(s);

end.

Answer 2

Вот пример программы на Паскаль Турбо, которая выполняет задание:

pascalCopy code
program RemoveFirstLetter;

var
  W: string;
  firstLetter: Char;
  i, count: integer;

begin
  Write('Введите строку W: ');
  ReadLn(W);

  Write('Введите первую букву имени разработчика: ');
  ReadLn(firstLetter);

  count := 0;

  WriteLn('Исходная строка: ', W);

  for i := Length(W) downto 1 do
  begin
    if UpCase(W[i]) = UpCase(firstLetter) then
    begin
      Delete(W, i, 1);
      Inc(count);
    end;
  end;

  WriteLn('Измененная строка: ', W);
  WriteLn('Количество удаленных символов: ', count);

  ReadLn;
end.

В данном примере программа запрашивает у пользователя строку W и первую букву имени разработчика firstLetter. Затем она проходит по каждому символу строки W и удаляет все символы, которые совпадают с firstLetter. После этого программа выводит исходную строку, измененную строку и количество удаленных символов.

Обратите внимание, что в программе используется функция UpCase для сравнения символов без учета регистра. Это означает, что программа будет удалять символы, как в верхнем, так и в нижнем регистре, если они совпадают с первой буквой имени разработчика.