SaveText.Ru

Без имени
  1. Var s,s1:string;
  2.      n:integer;
  3.      begin
  4.      writeLn('Введите путь к файлу:');
  5.      readln(s);
  6.      n:=1;
  7.      while n<>0 do begin
  8.      n := Pos('', s);
  9.      s1 := Copy(s, 1, n-1);
  10.      Delete(s, 1, n);
  11.      if n<>0 then
  12.      writeln (s1);
  13.      end;
  14.      
  15.      writeln (s);
  16.      
  17.      end.
  18.  

Share with your friends:

Print