Если между словами есть несколько пробелов
var
i: integer;
st: string;
begin
readln(st);
i := 1;
while st[1] = ' ' do delete(st, 1, 1);
while i <= length(st) do
begin
if st[ i ] = ' ' then
while (st[ i + 1 ] = ' ') and (length(st) >= i) do
delete(st, i, 1);
inc(i);
end;
write(st);
end.
Если чётко знаем, что только два пробела то так:
var
i: integer;
s: string;
begin
readln(st);
i := 1;
while(i<=length(st)) do begin
if (s[ i ] = ' ') then delete(st,i+1,1);
inc(i);
end;
writeln(St);
end.
ну если вы в турбопаскале пишите, то вероятно больше всего она будет похожа на желтые буковки на синем фоне.
начинаться она будет с какого-нибудь Var, далее где-нибудь Begin, а в конце - End
program stroki;
uses crt;
var
st:string;
i:integer;
begin
readln(st);
i:=1;
while i
Искать ДВА пробела, заменять на ОДИН. Какие проблемы?