Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Паскаль, поставить после каждого вопросительного знака восклицательный (т.е. заменить в строке все вопросительные знаки (?) на знаки (?!)

Ответ оставил Гость

Borland Pascal 7
uses Crt;
var
  s:string;
  i:integer;
begin
  ClrScr;
  Readln(s);
  for i:=length(s) downto 1 do
    if s[i]=? then Insert(!,s,i);
  Writeln(s);
  ReadKey
end.