Uses crt;var s:string; i:integer;begin write (Введите строку: ); readln (s); for i:= 1 to length (s) do if s[i]=? then s[i]:=!; writeln (s);end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.