Ввести адрес файла и «разобрать» его на части, разделенные знаком «/». Каждую часть вывести в отдельной строке.
Пример: C:/фото/2013/Поход/vasya.jpg
C:
фото
2013
Поход
vasya.jpg
Исходный код на языке Pascal
var k, s: string; n: integer; begin read(s); n := 100; while n > 0 do begin n := pos('/', s); if n > 0 then begin k := copy(s, 1, n - 1); writeln(k); delete(s, 1, n); end else n := 0; end; k := copy(s, n, length(s)); writeln(k); end.