Question

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

Answer 1

Program add_semicolons;
var
sentence: string;
i: integer;
begin
sentence := 'Человек без сомнений должен непременно вызывать сомнения окружающих';
for i := 1 to length(sentence) do
if sentence[i] = ' ' then
sentence[i] := ';';
writeln(sentence);
end.

Answer 2

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

program InsertSemicolon;

var
  sentence, newSentence: string;
  i: integer;

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

for i := 1 to length(sentence) do
  begin
    if sentence[i] = ' ' then
    begin
      newSentence := newSentence + ';';
    end
    else
    begin
      newSentence := newSentence + sentence[i];
    end;
  end;

writeln('Исходное предложение: ', sentence);
  writeln('Предложение с точками с запятой: ', newSentence);
end.

В этом коде мы объявляем две строки: `sentence` для хранения исходного предложения и `newSentence` для хранения измененного предложения. Затем мы используем цикл `for` для прохода через исходное предложение посимвольно.

Внутри цикла мы проверяем, если текущий символ - это пробел, то заменяем его на точку с запятой, добавляя ее к `newSentence`. В противном случае, если символ не является пробелом, мы просто его копируем в `newSentence`.

После завершения цикла выводим исходное предложение и измененное предложение с использованием `writeln`.

Таким образом, после выполнения этого кода, в переменной `newSentence` будет содержаться предложение с точками с запятой вместо пробелов:

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