ПОЛУЧИТЬ ВСЕ СИМВОЛЫ, РАСПОЛОЖЕННЫЕ МЕЖДУ ПЕРВОЙ И ПОСЛЕДНЕЙ ТОЧКАМИ

[MMARKIN]

ДАНА СТРОКА СИМВОЛОВ. ПОЛУЧИТЬ ВСЕ СИМВОЛЫ, РАСПОЛОЖЕННЫЕ МЕЖДУ ПЕРВОЙ И ПОСЛЕДНЕЙ ТОЧКАМИ.

[MMARKIN]

P.S В ПАСКАЛЕ

[capta1n]

program prog;
var
 s1,s2: string;
 k,j : byte;
begin
  readln(s1);
  s2:=s1;
  k:=pos('.',s2);
  if k<>0 then
  begin
   while pos('.',s2)<>0 do
   begin
     j:=pos('.',s2);
     delete(s2,j,1);
     insert(',',s2,j);
   end;
   if j<>k then writeln (copy(s1,k+1,j-k-1))
           else writeln ('Posledney to4ki net')
  end
  else writeln ('To4ek net');
  readln
end.

[Stilet]

Я бы так сделал:

var s:string;i,k:integer;
readln(s);
i:=1; while (i<=length(s))and(s[i]<>'.') do inc(i);
k:=length(s); while (k>i)and(s[k]<>'.') do dec(k);
write(copy(s,i+1,k-i));

Нетестировал, нодумаю так оптимальнее

[capta1n]

а что, мне нравится только, если будет что-то типа ss.sss.ffffffffffffffffffffffffffff f то циклы будут работать медленнее, чем функция pos

[MMARKIN]

не работает прога

[OCTAGRAM]

Версия capta1n работает, если не считать транслита. В чём проблемы?

     delete(s2,j,1);
     insert(',',s2,j);

Я бы так даже не догадался Это закос под неопытного студента?

[Stilet]

если будет что-то типа ss.sss.ffffffffffffffffffffffffffff f то циклы будут работать медленнее, чем функция pos

Ну не буду же я для novice писать на асме, верно?