Нина
4 год назад
Пожалуйста посчитайте пожалуйста! Дана строка, содержащая слова, разделенные одним или несколькими пробелами. Написать программу, заменяющую каждый пробел парой символов "!?". Паскаль
ОТВЕТЫ
Богдана
Oct 24, 2020
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.
706
Смежные вопросы: