дано текст-адрес файла необходимо разделить его, выводя каждую вложенную папку из новой строки экрана

@mashamashamasha · Регистрация: 17.10.2012

@CodeR · 29.11.2012, 12:41

Pascal

Var s:string;
Begin
    write('Введите путь  файлу: ');readln(s);
    Delete(s,1,3);//удаляем из строки имя диска и :\
    While Pos('\',s)>0 do
    Begin
      writeln(Copy(s,1,Pos('\',s)-1));
      Delete(s,1,Pos('\',s));
    End;
    readln;
End.

@mashamashamasha 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 6
		1
	дано текст-адрес файла необходимо разделить его, выводя каждую вложенную папку из новой строки экрана 28.11.2012, 22:25. Показов 2010. Ответов 1 Метки нет (Все метки) дано текст-адрес файла необходимо разделить его, выводя каждую вложенную папку из новой строки экрана __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

дано текст-адрес файла необходимо разделить его, выводя каждую вложенную папку из новой строки экрана

Решение