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

@Monkey D Luffy · Регистрация: 25.03.2012

Ввести путь к файлу и "разобрать" его, выводя каждую вложенную папку с новой строки
Пример:
Введите путь к файлу:
C:\Мои документы\10-Б\Вася\qq.exe
Результат:
C:
Мои документы
10-Б
Вася
qq.exe
(символьные строки)

@КонецСвета · 26.03.2012, 00:11

Pascal

uses crt;
var s,sc: string;
    i,p: byte;
begin
write(''); readln(s);
while pos('\',s)<>0 do
      begin
      sc:=copy(s,1,pos('\',s)-1);
      delete(s,1,pos('\',s));
      writeln(sc);
      end;
end.

@Monkey D Luffy 0 / 0 / 0 Регистрация: 25.03.2012 Сообщений: 11
		1
	Ввести путь к файлу и "разобрать" его, выводя каждую вложенную папку с новой строки 25.03.2012, 21:44. Показов 17010. Ответов 1 Метки нет (Все метки) Ввести путь к файлу и "разобрать" его, выводя каждую вложенную папку с новой строки Пример: Введите путь к файлу: C:\Мои документы\10-Б\Вася\qq.exe Результат: C: Мои документы 10-Б Вася qq.exe (символьные строки) 0

Опции темы

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

Решение