Var s,s1:string; i:integer; begin write('s='); readln(s); s1:=s[1]; for i:=2 to length(s)-1 do if (s[i-1]<>' ')and(s[i]=' ')and(s[i+1]<>' ') then s1:=s1+' ' else s1:=s1+s[i]; s1:=s1+s[length(s)]; writeln(s1); end.
Пример работы программы: s=Мама мыла раму, а Даша мыла Катю. Мама мыла раму, а Даша мыла Катю.
begin
write('s='); readln(s);
s1:=s[1];
for i:=2 to length(s)-1 do
if (s[i-1]<>' ')and(s[i]=' ')and(s[i+1]<>' ')
then s1:=s1+' ' else s1:=s1+s[i];
s1:=s1+s[length(s)];
writeln(s1);
end.
Пример работы программы:
s=Мама мыла раму, а Даша мыла Катю.
Мама мыла раму, а Даша мыла Катю.