..........................................
поровоз вроде!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Саму прогу засунунул в файл (тут пробелы иначе убираются), превью в картинке
Var s,sw: string;
i,j,bst: integer;
begin
s:='строка для решения арба еле реестр';
bst:=1; sw:=''; write('строка для поиска - ');
writeln(s);
for i:=1 to length(s) do
begin
if (Ord(s[i])=32) then
begin
if (s[bst]=s[i-1]) then
begin
for j:=bst to i-1 do sw:=sw+s[j];
writeln('найдено слово - ',sw);
sw:='';
end;
bst:=i+1;
end;
end;
if (s[bst]=s[length(s)]) then
begin
for i:=bst to length(s) do sw:=sw+s[i];
writeln('найдено слово - ',sw);
end;
<span>end.
</span>
Ну у вас то все выравнено по левому краю, надо было рисунок прилагать, но нем видно, что выравнивание
левый край
по центру
по ширине
по правому