При работе робот МУПР потушил пожар на п клетках. Известно, что каждая клетка имеет размер 500 м на 500 м. Напишите программу, которая по введенному значению и определит
площадь участка, на котором потушен пожар, и выразит её в км? им”. Например, для n=237 ответ
должен быть следующим: площадь равна 59 кв. км и 250 000 кв. м

​

Классификация субъектов.

Можно выделить следующие виды субъектов информационного права:

— потребители (пользователи) информации, которыми согласно ст. 1 Федерального закона от 9 февраля 2009 г. № 8-ФЗ "Об обеспечении доступа к информации о деятельности государственных органов и органов местного самоуправления" являются граждане, организации, органы государства, органы местного самоуправления, общественные объединения, осуществляющие поиск информации, имеют право использовать информационные продукты в личных целях, обладают ограниченным правом на распространение информации;

— производители информации — лица, которые обладают всеми правомочиями в отношении создаваемых ими информационных продуктов;

— обладатели информации — лица, самостоятельно создавшие информацию либо получившие на основании закона или договора право разрешать или ограничивать доступ к информации (ст. 2 Федерального закона от 27 июля 2006 г. № 149-ФЗ "Об информации, информационных технологиях и о защите информации";

— информационные посредники, оказывающие информационные и иные услуги другим субъектам по отдельным договорам (операторы связи, сервис-провайдеры и др.). Среди них можно выделить традиционных информационных посредников и торговых информационных посредников [1]Торговые информационные посредники — это лица, осуществляющие посреднические информационные функции в сфере электронной торговли (торговое информационное посредничество).;

— органы надзора и контроля в сфере связи, информационных технологий и массовых коммуникаций, имеющие комплексную правосубъектность;

— юрисдикционные органы по рассмотрению информационных споров (вс органы).

Субъектов информационного права можно разделить на индивидуальных (физические лица) и коллективных (юридические лица). К индивидуальным относятся граждане, иностранцы, лица без гражданства, лица с двойным гражданством. Коллективные субъекты информационного права делятся на следующие виды: само государство; государственные органы и учреждения; общественные объединения; промышленные предприятия; иностранные фирмы; компании, банки. При этом не всякий коллектив может выступать субъектом права. Например, семья или кафедры, отделы и другие общности не обладают этим качеством. Субъектами информационного права являются устойчивые, постоянные образования, которые характеризуются единством воли и цели, а также определенной внутренней организацией, но не случайные и не временные объединения граждан.

Выделяют также основных (производитель, потребитель, обладатель информации) и вс субъектов информационного права (государственная комиссия по радиочастотам, конкурсные комиссии, судебные органы, рассматривающие информационные споры, и др.).

Модельный информационный кодекс для государств — участников СНГ устанавливает, что субъектами информационных отношений являются физические и юридические лица, лица без гражданства, общественные и политические организации, органы государственной власти и органы местного самоуправления. К субъектам также могут быть отнесены иностранные физические и юридические лица, иностранные общественные и политические организации, органы государственной власти и органы местного самоуправления иностранных государств, международные организации, иностранные государства (ст. 10).

Каждый из указанных субъектов имеет свой информационно-правовой статус на основании информационного законодательства.

uses
  GraphABC;

var
  i: word; //Было предпочтительнее использовать byte,
             //ведь от 3 до 7 считаем, но тип word старее,
             //а к byte могут придраться

begin
  SetBrushColor(clBlue); //Проставляем цвет кисти, я не
                                    //нашёл функции рисования круга,
                                    //где можно было бы указать цвет
  for i := 3 to 7 do
  begin
    FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
    sleep(500); //Поскольку круги в конечном счёте всё равно
                     //затираются более большими, будем выводить
                     //с задержкой
  end;
end.