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

String59. Дана строка, содержащая полное имя файла, то есть имя диска, список каталогов (путь), собственно имя и расширение. Выделить из этой строки расширение файла (без предшествующей точки).

Решение:

program String59;
var
 FullName,FileType:String;
 i:integer;

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

  FileType:='';
  i:=1;
  While (i<=Length(FullName)) do
   begin
    FileType:=FileType+FullName[i];
    if FullName[i]='.' then FileType:='';
    inc(i);
   end;
  Writeln(FileType);
end.

program String59;

var

FullName,FileType:String;

i:integer;

begin

Write('FullName: ');

Readln(FullName);

FileType:='';

i:=1;

While (i<=Length(FullName)) do

begin

FileType:=FileType+FullName[i];

if FullName[i]='.' then FileType:='';

inc(i);

end;

Writeln(FileType);

end.

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

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

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

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