привет , была рада можешь отметить мой ответ как лучший и поставить лайк : )
Объяснение:
1-Имя файла не должно содержать „<” (знак меньше), „>” (знак больше), „:” (двоеточие), „«” (двойные кавычки), „/” (слеш), „\” (обратный слеш), „|” (вертикальная черта), „?” (вопросительный знак), „*” (звездочка), а также не может заканчиваться точкой или пробелом
2-попробуйте это (не уверен, что это лучший но он работает):
find . -type f | perl -ne 'print $1 if m/\.([^.\/]+)$/' | sort -u
Он работает следующим образом:
Найти все файлы из текущей папки
Печатает расширение файлов, если таковое имеется
Составьте уникальный отсортированный список
var s,i,f:integer;
Begin
read(f);
s:=1;
repeat
i:=i+3;
s:=s*(i+f);
until i>=27;
writeln(s);
End.