Question

Здравствуйте. Сделайте, пожалуйста, на Паскале. Дано предложение: «Человек без сомнений должен непременно вызывать сомнения окружающих». Вставьте между словами в предложении точку с запятой вместо пробелов. При выполнении задания необходимо использовать операторы для работы со строковой информацией.

Answer 1

program ReplaceSpacesWithSemicolons;

var

 sentence: string;

begin

 sentence := 'Человек;без;сомнений;должен;непременно;вызывать;сомнения;окружающих';

 writeln(sentence);

end.

Answer 2

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

pascalCopy code
program AddSemicolon;
var
  Sentence, ResultSentence: string;
  i: integer;
begin
  Sentence := 'Человек без сомнений должен непременно вызывать сомнения окружающих';
  ResultSentence := '';

  for i := 1 to Length(Sentence) do
  begin
    if Sentence[i] = ' ' then
      ResultSentence := ResultSentence + ';'
    else
      ResultSentence := ResultSentence + Sentence[i];
  end;

  writeln(ResultSentence);
end.

Эта программа берет предложение в переменной Sentence и создает новую строку ResultSentence, вставляя точку с запятой между словами в предложении. Результат выводится на экран.