Дана строка. Преобразовать ее, заменив звездочками все двоеточия (:), встречающиеся среди первых n/2 символов, и заменив точками

Вопрос посетителя

Дана строка. Преобразовать ее, заменив звездочками все двоеточия (:), встречающиеся среди первых n/2 символов, и заменив точками все восклицательные знаки, встречающиеся среди символов, стоящих после n/2 символов. Здесь n — длина строки.

Ответ эксперта

var
  str: string;
  i,n: byte;
begin
  write(‘Введите строку: ‘);
  readln(str);
  n:=length(str);
  for i:=1 to n do
  begin
    if (i     if (i>n div 2)and(str[i]=’!’) then str[i]:=’.’;
  end;
  writeln(str);
  readln;
end.

Скачать ответРаспечатать решение