Question

Дана строка, содержащая слова, разделенные одним или несколькими пробелами. Написать программу, заменяющую каждый пробел символом" ? "

Answer 1

var s:string;
begin
readln(s);
while pos(' ',s) <> 0 do begin
s[pos(' ',s)] := '?';
end;
end.