Дана строка, содержащая слова, разделенные одним или несколькими пробелами. Написать программу, заменяющую каждый пробел символом" ? "
Ответы
Ответ дал:
0
var s:string;
begin
readln(s);
while pos(' ',s) <> 0 do begin
s[pos(' ',s)] := '?';
end;
end.
begin
readln(s);
while pos(' ',s) <> 0 do begin
s[pos(' ',s)] := '?';
end;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад