// PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 // Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin var (w,h):=(800,600); // размер графического окна SetWindowSize(w,h); var (xc,yc):=(w div 2,h div 2); // координаты центра var R:=h-yc-20; // радиус описанной окружности var n:=ReadInteger('Количество сторон n ='); Window.Clear; Pen.Width:=5; Pen.Color:=clRed; var P:=new Point[n]; for var i:=0 to n-1 do begin var arg:=2*Pi*i/n-Pi/2; P[i].X:=Trunc(xc+R*cos(arg)); P[i].Y:=Trunc(yc+R*sin(arg)) end; DrawPolygon(P); end.
Здесь нужно введенную строку преобразовать в список со знаком-разделителем ".", так как идентификация файла идет только по расширению (это слово после последней точки в строке). Далее нужно проверить последнее слово (это последний элемент списка, его можно вытащить из списка с индексом -1) на соответствие одному из трех заданных расширений.
Программа:
x=input().split('.') #строим список из слов по разделителю "точка" y=['htm','html','php'] #задаем список расширений web-страниц if x[-1] in y: #если последнее слово из х есть в списке у print('Это веб-страница') #выводим положительное сообщение else: #иначе print('Что-то другое') #выводим отрицательное сообщение
