Ввести с клавиатуры имя файла. если расширение имени файла – htm, html или php, выдать сообщение «это веб - страница! », если расширение – doc или docx, выдать сообщение «это документ microsoft word! », если расширение – xls или xlsx , выдать сообщение «это документ microsoft excel! », если расширение – zip, rar или 7z, вывести «это архив! », если расширение – exe, выдать сообщение «это программа! », иначе выдать сообщение «что - то другое.» пример: введите имя файла: c: \doc\сайт\index.html это веб - страница ! пример: введите имя файла: c: \документы\приказ.pdf что - то другое.
var
FileName, Ext: string;
i, p: Integer;
begin
Write ('Введите имя файла: ');
Read (FileName);
p := 0;
for i := Length (FileName) downto 1 do begin
if FileName [i] = '.' then begin
p := i;
Break;
end;
end;
if p = 0 then begin
WriteLn ('Не найдено расширение имени файла!');
Exit;
end;
Ext := LowerCase (Copy (FileName, p + 1, Length (FileName) - p));
if (Ext = 'htm') or (Ext = 'html') or (Ext = 'php') then
WriteLn ('Это веб - страница!')
else if (Ext = 'doc') or (Ext = 'docx') then
WriteLn ('Это документ Microsoft Word!')
else if (Ext = 'xls') or (Ext = 'xlsx') then
WriteLn ('Это документ Microsoft Excel!')
else if (Ext = 'zip') or (Ext = 'rar') or (Ext = '7z') then
WriteLn ('Это архив!')
else if Ext = 'exe' then
WriteLn ('Это программа!')
else
WriteLn ('Что - то другое.');
end.