Предмет: Информатика,
автор: Цукеннроааилт
Помогите пожалуйста!
Дана строка, содержащая слова, разделенные одним или несколькими пробелами. Написать программу, заменяющую каждый пробел парой символов "!?". Паскаль
Ответы
Автор ответа:
0
var
s:string; i:integer;begin
readln(s);
while (pos(' ',s)<>0) do
begin
i:=pos(' ',s);
delete(s,i,1);
insert('!?',s,i);
end;
writeln(s);
readln;
end.
s:string; i:integer;begin
readln(s);
while (pos(' ',s)<>0) do
begin
i:=pos(' ',s);
delete(s,i,1);
insert('!?',s,i);
end;
writeln(s);
readln;
end.
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
s:=s.Replace(' ','!?'); s.Println
end.
Пример
Мама мыла раму
Мама!?!?!?!?мыла!?раму
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
s:=s.Replace(' ','!?'); s.Println
end.
Пример
Мама мыла раму
Мама!?!?!?!?мыла!?раму
Похожие вопросы
Предмет: Литература,
автор: verevkinadara1
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Биология,
автор: abobaaleksandr6
Предмет: Математика,
автор: kuza69