Решаем задачи Абрамян на Паскале. String60

String60. Дана строка, содержащая полное имя файла. Выделить из этой строки название первого каталога (без символов «\»). Если файл содержится в корневом каталоге, то вывести символ «\».

Решение:

program String60;
var
 FullName,FolderName:String;
 i:integer;

begin
  Write('FullName: ');
  Readln(FullName);

  Delete(FullName,1,pos('\',FullName));
  FolderName:=Copy(FullName,1,pos('\',FullName)-1);
  if FolderName='' then FolderName:='\';
  Writeln(FolderName);
end.

program String60;

var

FullName,FolderName:String;

i:integer;

begin

Write('FullName: ');

Readln(FullName);

Delete(FullName,1,pos('\',FullName));

FolderName:=Copy(FullName,1,pos('\',FullName)-1);

if FolderName='' then FolderName:='\';

Writeln(FolderName);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String60

Комментарии:

Добавить комментарий Отменить ответ