SaveText.Ru

Без имени
  1. program Hello;
  2. const n = '/';
  3. var s:string;
  4. i:integer;
  5. begin
  6.   writeln('Введите адрес файла:');
  7.   readln(s);
  8.   for i:= 1 to Length(s) do
  9.     if s[i] = n then
  10.         writeln
  11.     else
  12.         write(s[i]);
  13.   writeln;
  14. end.

Share with your friends:

Print