привет , была рада можешь отметить мой ответ как лучший и поставить лайк : )
Объяснение:
1-Имя файла не должно содержать „<” (знак меньше), „>” (знак больше), „:” (двоеточие), „«” (двойные кавычки), „/” (слеш), „\” (обратный слеш), „|” (вертикальная черта), „?” (вопросительный знак), „*” (звездочка), а также не может заканчиваться точкой или пробелом
2-попробуйте это (не уверен, что это лучший но он работает):
find . -type f | perl -ne 'print $1 if m/\.([^.\/]+)$/' | sort -u
Он работает следующим образом:
Найти все файлы из текущей папки
Печатает расширение файлов, если таковое имеется
Составьте уникальный отсортированный список
var
s: string[6];
n: integer;
begin
s := 'отлично';
n := length(s);
writeln(length('отлично'));
writeln(n);
end.
Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6
2) рисунок
3)var
s, s1: string;
n: integer;
begin
s := 'информатика';
s1 := copy(s, 3, 5);
n := pos(s, s1);
writeln('s=', s);
writeln('s1=', s1);
writeln('n=', n);
end.
Вывод
s=информатика
s1=форма
n=0
Все верно, в s1 не содержится s, а наоборот