Question

Составьте программу на Паскале, которая удалит все буквы «о» из текста, который состоит из 6 слов.

Answer 1

begin

ReadString.Replace('о','').Print

end.

Answer 2

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

pascalCopy code
program RemoveLetterO;
var
  TextArray: array[1..6] of string;
  i, j: integer;

begin
  writeln('Введите 6 слов:');
  for i := 1 to 6 do
    readln(TextArray[i]);

  writeln('Текст без букв "о":');
  for i := 1 to 6 do
  begin
    for j := 1 to length(TextArray[i]) do
    begin
      if (TextArray[i][j] <> 'o') and (TextArray[i][j] <> 'O') then
        write(TextArray[i][j]);
    end;
    writeln;
  end;

  readln;
end.

В этой программе мы используем массив TextArray, чтобы хранить 6 введенных слов. Затем мы проходим по каждому слову в массиве и удаляем все буквы "о" (как в нижнем, так и в верхнем регистре) из каждого слова, выводя результат без букв "о" на экран.