Question

40 баллов.С клавиатуры вводиться слово в латинском алфавите. Необходимо преобразовать слово по заданному правилу . Из слова удалить все вхождения заданной буквы. Переработанное слово вывести на экран. Написать программу на паскале .

Answer 1

===== PascalABC.NET =====

begin

 var s := ReadlnString('Введи строку:');

 var h := ReadlnChar('Какую букву удалить?');

 s := s.Replace(h, '');

 s.Println

end.

Answer 2

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

pascalCopy code
program RemoveLetter;

var
  word, letter, newWord: string;
  i: integer;

begin
  writeln('Введите слово:');
  readln(word);
  
  writeln('Введите букву для удаления:');
  readln(letter);
  
  newWord := '';
  
  for i := 1 to Length(word) do
  begin
    if word[i] <> letter then
      newWord := newWord + word[i];
  end;
  
  writeln('Переработанное слово:', newWord);
  
  readln;
end.

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