Решаем задачи Абрамян на Паскале. String50

String50. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, разделенные одним пробелом и расположенные в обратном порядке.

Решение:

program String50;
var
 S,S2:String;
 i,poz:integer;


begin
  Write('S: ');
  Readln(S);

  i:=1;
  S2:='';
  poz:=pos(' ',S);
  While (poz<>0) do
   begin
    if poz=1 then delete(S,1,1);
    if poz>1 then
     begin
      S2:=copy(S,1,poz-1)+' '+S2;
      Delete(S,1,poz);
     end;
    poz:=pos(' ',S);
   end;
  S2:=S+' '+S2;
  Writeln(S2);
end.

program String50;

var

S,S2:String;

i,poz:integer;

begin

Write('S: ');

Readln(S);

i:=1;

S2:='';

poz:=pos(' ',S);

While (poz<>0) do

begin

if poz=1 then delete(S,1,1);

if poz>1 then

begin

S2:=copy(S,1,poz-1)+' '+S2;

Delete(S,1,poz);

end;

poz:=pos(' ',S);

end;

S2:=S+' '+S2;

Writeln(S2);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String50

Комментарии:

Добавить комментарий Отменить ответ