Самый простой способ навскидку - основываясь на расширении файла. Есть более распространенные расширения типа jpg, png, doc, avi, mp3. Все и так знают что там подразумевается
Но бывают расширения малознакомые. Или предназначенные для определенных предложений, или использующиеся для по разному. Вообще смотришь и не понимаешь откуда и зачем это может быть
Тогда для определения файл надо открыть, но надо быть осторожными. проверить файл на вирусы. Так же файл может быть исполняемым, потому надо открывать его на просмотр или изменение, но не на исполнение.
Так же может не оказаться программы для открытия данного файла, а по текстовому виду (если открыть в блоктоне) можно вообще не понять то это за файл и для чего
Думаю проблема более менее раскрыта
Program pony;
var
a, b: string;
i: integer;
begin
Write('введите строку: '); Readln(a);
Write('введите сочетание: '); Readln(b);
for i := length(a) downto 1 do
if a[i] = 'о' then insert(b, a, i + 1);
Writeln(a)
end.
<u>Тестовое решение:</u>
введите строку: Дает корова молоко
введите сочетание: 12345
Дает ко12345ро12345ва мо12345ло12345ко12345