Предмет: Информатика,
автор: Liuba20
С клавиатуры вводится строка состоящая из отдельных слов, разделенных между собой произвольным количеством пробелов. Написать программу оставляющую между словами по 1 пробелу. Помогите пожалуйста
Ответы
Автор ответа:
0
var
s,s1:string;
i:integer;
begin
writeln ('Введите строку.');
readln (s);
s1:='';
for i:= 1 to length(s)-1 do
begin
if s[i] <> ' ' then s1:=s1+s[i];
if (s[i] = ' ')and(s[i+1] <> ' ') then s1:=s1+s[i];
end;
s:='';
if s1[1] = ' ' then
for i:= 2 to length(s1) do
s:=s+s1[i]
else
for i:= 1 to length(s1) do
s:=s+s1[i];
writeln(s);
end.
s,s1:string;
i:integer;
begin
writeln ('Введите строку.');
readln (s);
s1:='';
for i:= 1 to length(s)-1 do
begin
if s[i] <> ' ' then s1:=s1+s[i];
if (s[i] = ' ')and(s[i+1] <> ' ') then s1:=s1+s[i];
end;
s:='';
if s1[1] = ' ' then
for i:= 2 to length(s1) do
s:=s+s1[i]
else
for i:= 1 to length(s1) do
s:=s+s1[i];
writeln(s);
end.
Похожие вопросы
Предмет: Обществознание,
автор: orsk75
Предмет: Русский язык,
автор: aminasavkatoma
Предмет: Қазақ тiлi,
автор: llloooop
Предмет: Физика,
автор: Aruka0012
Предмет: Литература,
автор: диана901