В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География

57. по законодательству о государственной тайне.
в прокуратуру города n обратился с заявлением лидер одной из партий, представленных в государственной думе. в своем заявлении он просил привлечь к уголовной ответственности одного из членов своей партии по ст. 284 ук рф, предусматривающей уголовную ответственность за утрату документов, содержащих государственную тайну.
в ходе следствия выяснились следующие обстоятельства. член партии петров имел по роду своей профессиональной деятельности вторую форму допуска. как надежному человеку ему было поручено в рамках партийных обязанностей вести списки потенциальных членов партии работающих на оборонном предприятии, а равно списки членов партии планируемых на выдвижение на высшие государственные посты. книга с указанными сведениями, хранившаяся в штаб-квартире партии и имевшая надпись на титульном листе «секретно», регистрационный номер, дату рассекречивания, указание на партийную организацию, принявшую решение о засекречивании была утрачена. ответственным за ее хранение был петров. по мнению лидера партии утрата подобного рода документа могла повлечь политический кризис в стране и тем самым нанести ущерб безопасности государства.
1. существует ли легальное понятие партийной тайны?
2. может ли характер сведений, составляющих партийную тайну
подпадать под признаки сведений, составляющих государственную тайну.
3. какое решение должна принимать прокуратуру?

Показать ответ
Ответ:
АлексейGrigorjew
АлексейGrigorjew
12.10.2022 07:16
uses crt; var s:string;     c:char;     m:set of char;     n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then  begin   write(c);   s:=s+c;  end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do  begin   k:=0;   for i:=1 to n do   if s[i]=c then k:=k+1;   if k>1 then m:=m+[c];  end; if m=[] then write('Нет букв, встречающихся более 1 раза') else  for c:='a' to 'z' do  if c in m then write(c) end.
0,0(0 оценок)
Ответ:
Ariya03
Ariya03
11.02.2022 01:13
Var   a: array[1..20,1..20] of integer;   n,m,i,j,min,jm,x: integer; begin   randomize;   write('Введите размеры массива: ');   readln(n,m);   writeln('Исходный массив:');   for i:=1 to n do   begin     for j:=1 to m do     begin       a[i,j]:=random(19)-9;       write(a[i,j]:4);     end;     writeln;   end;   min:=0;   for i:=1 to n do min:=min+a[i,1];   writeln('Сумма элементов 1-го столбца = ',min);   jm:=1;   for j:=2 to m do   begin     x:=0;     for i:=1 to n do       x:=x+a[i,j];     writeln('Сумма элементов ',j,'-го столбца = ',x);     if x<min then     begin       min:=x;       jm:=j;     end;   end;   writeln('Минимальная сумма в ',jm,'-м столбце');   writeln('Полученный массив:');   for i:=1 to n do   begin     for j:=1 to m do     begin       if j<>jm then a[i,j]:=a[i,jm];     write(a[i,j]:4);     end;     writeln;   end;   readln; end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота