Комментарии: Решаем задачи Абрамян на Паскале. String40

Автор: Kirk

Kirk — Wed, 17 May 2017 13:14:25 +0000

Program s40;

Var
 s: string;
 poz,poz2: integer;
 
Begin
 Write('S: ');
 Readln(s);
 poz:=pos(' ',s);
 Writeln(poz);
 poz2:=pos(' ',copy(s,poz+1,length(s)));
 Writeln(poz2);
 If poz2<>0 then Writeln('"',copy(s,poz+1,poz2-1),'"');
End.

Program s40;

Var

s: string;

poz,poz2: integer;

Begin

Write('S: ');

Readln(s);

poz:=pos(' ',s);

Writeln(poz);

poz2:=pos(' ',copy(s,poz+1,length(s)));

Writeln(poz2);

If poz2<>0 then Writeln('"',copy(s,poz+1,poz2-1),'"');

End.

Автор: Anton

Anton — Mon, 12 Dec 2016 03:46:39 +0000

В ответ на Newton. Добавил в шапку.

Автор: Newton

Newton — Sat, 10 Dec 2016 22:04:31 +0000

Вариант:

program String40; 

const
   Space = ' ';

var
   Line              : string;
   SpaceInd, Counter : byte;
   
begin 
   writeln('Enter a string with at least one white space: ');
   readln(Line);
   SpaceInd := Pos(Space, Line);
   delete(Line, 1, SpaceInd);
   SpaceInd := 1;
   for Counter := 1 to Length(Line) do
      if Line[Counter] = Space then
         SpaceInd := Counter;
   delete(Line, SpaceInd, Length(Line));
   writeln(Line);
end.

program String40;

const

Space = ' ';

var

Line : string;

SpaceInd, Counter : byte;

begin

writeln('Enter a string with at least one white space: ');

readln(Line);

SpaceInd := Pos(Space, Line);

delete(Line, 1, SpaceInd);

SpaceInd := 1;

for Counter := 1 to Length(Line) do

if Line[Counter] = Space then

SpaceInd := Counter;

delete(Line, SpaceInd, Length(Line));

writeln(Line);

end.