nyuuzyou/soloby huggingface dataset:
Вопрос: Подсчитать, сколько букв надо исправить в слове Z, чтобы получилось слово K
(Z,K - слова одинаковой длины).
Категория: школьный раздел
Ответы:
var
  z, k : String;
  i, c : Integer;
begin
  ReadLn(z);
  ReadLn(k);
  c := 0; for i := 1 to Length(z) do if z[i] <> k[i] then inc(c);
  WriteLn(c);
end.
Вопрос: Значение функции f(x)=2sin(3x/4) определены при x=x0(hx)xn. Определить значение функции, которое ближе всего расположено к точке с координатами (x1, y1). Значения x0, hx, xn, x1, y1 задать произвольно. Цикл нужно сделать с предусловием.
Категория: школьный раздел
Ответы:
function f(x:real):real;
begin
f:=2*sin(2*x/4)
end;
var x0,xn,hx,x1,y1,x,r,mn,zx,zf:real;
begin
write('Введите начало интервала x0=');
readln(x0);
repeat
write('Введите конец интервала xn>',x0:0:2,' xn=');
readln(xn);
until xn>x0;
repeat
write('Введите шаг табуляции hx<',xn-x0:0:2,' hx=');
readln(hx);
until hx<xn-x0;
writeln('Введите координаты точки(x1,y1)');
readln(x1,y1);
x:=x0;
while x<xn+hx/2 do
 begin
  r:=sqrt(sqr(x-x1)+sqr(f(x)-y1));
  writeln('x=',x:5:2,' f(x)=',f(x):8:3,' расстояние до (x1,y1)=',r:8:3);
  if x=x0 then
   begin
    mn:=r;
    zx:=x;
    zf:=f(x);
   end
  else if r<mn then
   begin
    mn:=r;
    zx:=x;
    zf:=f(x);
   end;
  x:=x+hx;
 end;
writeln('Наиболее близко к точке (x1,y1) находится точка [',zx:0:2,',',zf:0:3,'] r=',mn:0:3)
end.
Вопрос: Напишите процедуру, которая cчитает количество равных элементов в массиве в переменную i.
Категория: школьный раздел
Ответы:
const n=5;
type t_mass= array [1..n] of integer;
procedure kol(a:t_mass; var k:integer);
var i:integer;
begin
i:=1;
while (i<n) and (a[i]=a[i+1]) do  inc(i);
k:=i;
end;
 
var i:integer;
    a:t_mass;
 
Begin
for i:= 1 to n do
read(a[i]);
kol(a,i);
write(i);
end.
Вопрос: Гарри Поттер на досуге занимается исследованием свойств чисел .Однажды старом заклинании он увидел число 5476528769476958 7387647836748 и захотел узнать, а делиться ли оно на 3 ? Напишите программу , помогающую Гарри решить эту проблему для любого N(0<n<10^1000).
Категория: школьный раздел
Ответы:
const
  d = 7;
 
var
  t: text;
  c: char;
  r: Integer;
 
begin
  assign(t, 'input.txt');
  reset(t);
  r := 0;
  while not eoln(t) do
    begin
      read(t, c);
      r := (r * 3 + ord(c) - ord('0')) mod d
    end;
  close(t);
  assign(t, 'output.txt');
  rewrite(t);
  if r = 0 then writeln(t, 'Да') else writeln(t, r);
  close(t)
end.
Вопрос: Надо написать программу которая находит значение функции e-x2 через ряд Тейлора, она работает от -4 до 4, хотя должна от минус бесконечности до положительной
Категория: школьный раздел
Ответы:
var
  n, k, e: integer;
  x, y, y1, xmin, xmax, d, p, t: real;
 
begin
  write('Введите xmin и xmax: ');//диапазон иксов
  readln(xmin, xmax);
  write('Введите Е и N: ');//Е-знак после запятой(обратный эпсилон), N-колличество точек 
  readln(e, n);
  p := power(10, -e);//точность вычислений
  writeln(p);
  d := abs(xmax - xmin) / (n - 1);//интервал меду точками
  writeln('Шаг X: ', d);
  
  x := xmin;
  writeln('_______________________________________________');
  writeln('X  |Y ', ' ' * e, '|Колво членов ряда|y1', ' ' * e, '|');
  writeln('_______________________________________________');
  for var i := 1 to n do //для каждой точки Х вычисляем значения, 
  begin
    y1 := exp(-(x * x));//встроенная в паскаль функция экспоненты
    k := 0; {нулевой индекс}
    y := 1; {начальное значение итоговой суммы}
    t := 1;{знчение члена ряда при k=0}
    while abs(t) >= (p) do {пока модуль очердного члена ряда не меньше точности}  //нахождение значения функции при помощи степенного ряда
    begin
      k := k + 1;{следующий член}
      t := -t * x * x / k;{домножаем на х^2(возводим в степень) и делим на индекс(обратный факториал)}
      y := y + t;{суммируем}
    end;
    writeln();
    
    writeln(x:3, ' ', y:e + 2:e, ' ', k + 1:2, '                ', y1:e + 2:e);//выводим значение х, найденной функции, количества слагаемых в ряду Тейлора(t) и значение функции встроенной в паскаль для проверки 
    x := x + d;//следующая точка
  end;
end.
Вопрос: Найти число, отличающееся от других чисел
Категория: школьный раздел
Ответы:
var
  a, b, c, d: integer;
 
begin
  readln(a, b, c, d);
  if (a <> b) and (b = c) and (b = d)
    then writeln(a)
    else if (b <> c) and (a = c) and (a = d)
      then writeln(b)
      else if (c <> d) and (a = b) and (a = d)
        then writeln(c)
        else if (c <> d) and (a = b) and (a = c)
          then writeln(d)
          else writeln('Нет решения');
  readln
end.
Вопрос: Задан массив, состоящий из чисел 1, 2, 3. За одну операцию можно поменять местами два любых числа. Вам необходимо за минимальное количество операций отсортировать массив по не убыванию.
Категория: школьный раздел
Ответы:
var
  a     : array [1..1000] of longint;
  b     : array [1..3] of longint;
  i,n,k : longint;
 
  procedure Swap(x,y,z:longint);
    var
      i,j,t : longint;
    begin
      i:=1;
      j:=n;
      while (i<=n) and (j>=1) and (i<j) and (i<=z) do
        begin
          while (i<=n) and (a[i]<>x) do inc(i);
          while (j>=1) and (a[j]<>y) do dec(j);
          if (i<j) and (i<=z)
            then begin
                   t:=a[i]; a[i]:=a[j]; a[j]:=t;
                   inc(i); dec(j);
                   inc(k);
                 end;
        end;
    end;
begin
  readln(n);
  for i:=1 to 3 do b[i]:=0;
  for i:=1 to n do
    begin
      read(a[i]);
      inc(b[a[i]]);
    end;
  Swap(3,1,b[1]);
  Swap(2,1,b[1]);
  Swap(3,2,b[1]+b[2]);
  writeln(k);
end.
Вопрос: Разработать библиотечный модуль, содержащий следующие подпрограммы (процедуры или функции) для работы со строками:
1. Заменить в заданной строке все строчные буквы на заглавные.
2. Заменить в заданной строке все заглавные буквы на строчные.
3. Удалить все знаки препинания.
Написать программу, к которой подключается модуль, демонстрирующую работоспособность всех подпрограмм модуля.
Категория: школьный раздел
Ответы:
unit 
myunit;
 
interface
 
procedure MyUpCase(var s: string);
procedure LowCase(var s: string);
procedure MyDelete(var s: string);
 
implementation
 
procedure MyUpCase(var s: string);{приведение к верхнему регистру всей строки}
var
  i: byte;
begin
  for i := 1 to length(s) do
    if s[i] in ['a'..'z'] then s[i] := UpCase(s[i])
    else if s[i] in ['а'..'п'] then s[i] := chr(ord(s[i]) - 32)
    else if s[i] in ['р'..'я'] then s[i] := chr(ord(s[i]) - 80)
    else if s[i] = 'ё' then s[i] := 'Ё';
end;
 
procedure LowCase(var s: string);{приведение к нижнему регистру}
var
  i: byte;
begin
  for i := 1 to length(s) do
    if s[i] in ['A'..'Z', 'А'..'П'] then s[i] := chr(ord(s[i]) + 32)
    else if s[i] in ['Р'..'Я'] then s[i] := chr(ord(s[i]) + 80)
    else if s[i] = 'Ё' then s[i] := 'ё';
end;
 
procedure MyDelete(var s: string);
const
  cs = [' ', '.', ',', ':', ';', '!', '?'];
var
  i: integer;
begin
  for i := length(s) downto 1 do
    if s[i] in cs then
      delete(s, i, 1);
end;
end.
Вопрос: Написать программу, в которой в ручную заполняется матрица (элементы, количество строк и столбцов, все в ручную), в этой матрице в каждом столбце найти первый отрицательный элемент и сформировать вектор (из найденных элементов), вывести этот вектор на экран. Далее нужно умножить на индекс минимального элемента вектора всю матрицу и вывести преобразованную матрицу на экран, и с помощью процедуры поменять в полученной матрице элементы столбцов (номера вводятся в ручную). Вывести полученную матрицу.
Категория: школьный раздел
Ответы:
const
  imax = 9;
 
type
  vector = array[1..imax] of real;
  matrix = array[1..imax] of vector;
 
procedure inp_size(s: string; var x: integer; k: integer);
begin
  repeat
    write(s + ' [1..', k, ']: ');
    readln(x)
  until x in [1..k]
end;
 
procedure out_mat(s: string; const x: matrix; m, n: integer);
var i, j: integer;
begin
  writeln(s);
  for i := 1 to m do
    begin
      for j := 1 to n do write(' ', x[i, j]:9);
      writeln
    end;
  write('Нажмите <Enter>');
  readln
end;
 
procedure swap_col(var x: matrix; f, s, n: integer);
var i: integer;
    t: real;
begin
  for i := 1 to n do
    begin
      t := x[i, f];
      x[i, f] := x[i, s];
      x[i, s] := t
    end
end;
 
var
  mat: matrix;
  vec: vector;
  m, n, i, j, k, t, p, min: integer;
 
begin
  inp_size('Количество строк', m, imax);
  inp_size('Количество столбцов', n, imax);
  writeln('Введите элементы мтрицы:');
  for i := 1 to m do
    for j := 1 to n do
      begin
        write('mat[', i, ', ', j, '] = ');
        readln(mat[i, j])
      end;
  out_mat('Исходная матрица:', mat, m, n);
  k := 0;
  for j := 1 to n do
    for i := 1 to m do
      if mat[i, j] < 0
        then begin
          inc(k);
          vec[k] := mat[i, j];
          break
        end;
  if k > 0
    then begin
      min := 1;
      writeln('Вектор:');
      for i := 1 to k do
        begin
          write(' ', vec[i]:9);
          if vec[i] < vec[min] then min := i
        end;
      writeln;
      writeln('Индекс минимального элемента вектора: ', min)
      for i := 1 to m do
        for j := 1 to n do
          mat[i, j] := mat[i, j] * min;
      out_mat('Преобразованная матрица:', mat, m, n)
    end
    else writeln('Матрица не содержит отрицательных элементов.');
  writeln('Введите номера столбцов, которые нужно обменять:');
  inp_size('Первый столбец', t, m);
  inp_size('Второй столбец', p, m);
  swap_col(mat, t, p, n);
  out_mat('Преобразованная матрица:', mat, m, n)
end.
Вопрос: Запросить у пользователя строку S, состоящую из цифр. Преобразовать каждый символ – цифру в число. Найти сумму и произведение полученных чисел. Вывести на чистый экран строку S, ее длину, сумму и произведение.
Категория: школьный раздел
Ответы:
var
  s: string;
  err, k, sum, i: integer;
  p: real;
 
begin
  readln(s);
  sum := 0;
  p := 1;
  for i := 1 to length(s) do
    if s[i] in ['0'..'9'] then 
    begin
      val(s[i], k, err);
      p := p * k;
      sum := sum + k;
    end;
  writeln('Сумма цифр: ', sum);
  writeln('Произведение цифр: ', p);
end.
Вопрос: Написать процедуру которая в непустом списке L меняет местами первый и последний элементы и вставить её в данную программу.
Категория: школьный раздел
Ответы:
type
  zap = record
    fam: string[10];
    im: string[7];
    otc: string[13];
  end;
  ukaz = ^element;
  element = record
    inf: zap;
    next: ukaz;
  end;
 
var
  newE, left, right, temp: ukaz;
  z: zap;
  number: integer;
 
function InputZ : zap;
var
  z : zap;
begin
  writeln('Введите фамилию студента');
  readln(z.fam);
  writeln('Введите имя студента');
  readln(z.im);
  writeln('Введите отчество студента');
  readln(z.otc);
  InputZ := z;
end;
 
procedure dob(var first, last : ukaz);
var
  z : zap;
begin
  z := InputZ;
  if first = nil then
    begin
      New(first);
      last := first;
    end
  else
    begin
      New(last^.next);
      last := last^.next;
    end;
  last^.inf := z;
  last^.next := nil;
end;
 
procedure org(var first, last : ukaz);
var
  answer : String;
begin
  writeln('Выполняется процедура организации очереди');
  repeat
    WriteLn;
    WriteLn('Желаете добавить студента? 1 - да / 0 - нет');
    ReadLn(answer);
    if Length(answer) = 1 then
      case answer[1] of
        '1' : dob(first, last);
        '0' : Exit;
      end;
  until False;
end;
 
procedure udal(var first, last : ukaz);
var
  tmp : ukaz;
begin
  writeln('Исключение главного элемента очереди');
  if first = nil then
    WriteLn('Операция невозможна: очередь пуста!')
  else
    begin
      tmp := first;
      first := first^.next;
      dispose(tmp);
    end;
  writeln('Нажмите кнопку Enter');
  readln;
end;
 
procedure prosmotr(cur : ukaz);
var
  i : integer;
  z : zap;
begin
  if cur = nil then
    WriteLn('Очередь пуста!')
  else
    begin
      writeln('Очередь содержит следующие элементы');
      i := 0;
      while cur <> nil do
        begin
          inc(i);
          z := cur^.inf;
          writeln(i, ')', z.fam, ' ', z.im, ' ', z.otc);
          cur := cur^.next;
        end;
    end;
  writeln('Нажмите кнопку Enter');
  readln;
end;
 
procedure SwapFirstAndLast(var first, last : ukaz);
var
  tmp : ukaz;
begin
  if first = nil then WriteLn('Очередь пуста!')
  else if first = last then WriteLn('Первый = последнему!')
  else
    begin
      tmp := first;
      while tmp^.next <> last do tmp := tmp^.next;
      last^.next := first^.next;
      tmp^.next := first;
      first^.next := nil;
      tmp := last; last := first; first := tmp;
      prosmotr(first);
    end;
end;
 
{--------------------------------------------------------------------}
var
  first, last : ukaz;
begin
  first := nil;
  last  := nil;
  repeat
    writeln('1-организация очереди');
    writeln('2-добавление элемента в очередь');
    writeln('3-удаление элемента из очереди');
    writeln('4-просмотр очереди');
    writeln('5 - обменять первый и последний элементы');
    writeln('0-выход');
    writeln('------------------');
    writeln('введите номер пункта меню');
    readln(number);
    case number of
      1: org(first, last);
      2: dob(first, last);
      3: udal(first, last);
      4: prosmotr(first);
      5: SwapFirstAndLast(first, last);
      0: halt;
    end;
  until False;
end.
Вопрос: Во входном потоке задано натуральное число n(в десятичной системе счисления).Найти количество стоящих рядом битов в его двоичной записи
Категория: школьный раздел
Ответы:
var
  n: longword;
  k: integer;
 
begin
  readln(n);
  n := n shr 1 and n;
  while n > 0 do
    begin
      inc(k, n and 1);
      n := n shr 1
    end;
  writeln(k)
end.
Вопрос: Знаменитый химик Д. И. Менделеев, будучи директором Главной палаты мер и весов, интересовался задачей составления набора гирь, чтобы с их помощью можно было взвесить любой груз. Выяснилось, что если при взвешивании груза класть гири и на левую и на правую чашки весов, то самым удобным является набор гирь в троичной системе. 
Для взвешиваний используют чашечные весы и большой набор гирь 1, 3, 9, 27, 81 грамм и т.д. (для любого k ≥ 0 есть только одна гиря весом 3^k грамм). 
На одну из чашек весов положили груз весом N грамм. Какие гири нужно положить на левую и правую чашки, чтобы их уравновесить?
Категория: школьный раздел
Ответы:
function IntToStr(n: Longint): String;
var s: String;
begin
  Str(n,s); IntToStr:=s;
end;
 
var
  lr: array [0..2] of String;
  n, k: Longint;
  t: Integer;
begin
  Read(n); k:=1;
  while n<>0 do begin
    t:=n mod 3; if t<>0 then lr[t]:=lr[t]+' '+IntToStr(k);
    n:=n div 3; k:=k*3;
  end;
  WriteLn('L',lr[2]); WriteLn('R',lr[1]);
end.
Вопрос: В одной строке экрана вводится последовательность символов (тип char). Ввод завершается нажатием Enter. Вывести заданную последовательность символов, следом в этой же строке первый символ и в круглых скобках число вхождений первого символа в заданную последовательность
Категория: школьный раздел
Ответы:
uses crt;
var c,s:char;
    i,k:integer;
begin
clrscr;
writeln('Введите символы в строку, окончание ввода Enter');
repeat//вводим первый, не Enter
s:=readkey;
until s<>#13;
write(s);//на экран
k:=1;//1 ввели
i:=1;
repeat//вводим остальные
c:=readkey;
inc(i);
if c<>#13 then write(c)
else writeln;
if c=s then inc(k);
until c=#13;//пока не Enter
gotoXY(i+1,2);//на 2 строку в конец введенной строки
write(s,'(',k,')');
readkey
end.
Вопрос: Вывести элементы массива в обратном порядке через рекурсию
Категория: школьный раздел
Ответы:
procedure gen(i: integer; const k: integer; var x: arr);
begin
  if i <= k
    then begin
      x[i] := random(100);
      write(x[i]:3);
      gen(i + 1, k, x)
    end
    else writeln
end;
 
procedure rprn(k: integer; const x: arr);
begin
  if k > 0
    then begin
      write(x[k]:3);
      rprn(k - 1, x)
    end
    else writeln
end;
 
var
  a: arr;
  n: integer;
 
begin
  writeln('Количество элементов');
  readln(n);
  randomize;
  gen(1, n, a);
  rprn(n, a)
end.
Вопрос: Флаг Малайзии
Категория: школьный раздел
Ответы:
uses graphaBC;
var x,y,y1,d,r1,r2:integer;
    u:real;
    p:array of point;
begin
d:=15; //ширна полосок
setwindowsize(52*d+80,26*d+80);
centerwindow;
clearwindow(clSkyblue); //голубой фон
x:=40;  //левый верхний угол
y:=40;
setpencolor(clWhite);//белый цвет линий
setbrushcolor(clRed);//красная кисть
rectangle(x,y,x+52*d,y+26*d);//красное полотно
//белые полосы
setbrushcolor(clWhite);
y1:=y+2*d;
for var i:=1 to 6 do
 begin
  rectangle(x,y1,x+52*d,y1+2*d);
  y1:=y1+4*d;
 end;
//темно-синий прямоугольник
setbrushcolor(clNavy);
setpencolor(clNavy);
rectangle(x,y,x+26*d,y+16*d);
//месяц
setpencolor(clYellow);
setbrushcolor(clYellow);
ellipse(x+6*d,y+2*d,x+17*d,y+14*d);
setbrushcolor(clNavy);
setpencolor(clNavy);
ellipse(x+8*d,y+3*d,x+18*d,y+13*d);
x:=x+18*d;
y:=y+8*d;
//звезда
setbrushcolor(clYellow);
r1:=2*d;
r2:=4*d;
u:=pi/2;
setlength(p,29);
for var i:=0 to 27 do
 begin
  if not odd(i) then
   begin
    p[i].x:=x+round(r2*cos(u));
    p[i].y:=y-round(r2*sin(u));
   end
  else
   begin
    p[i].x:=x+round(r1*cos(u));
    p[i].y:=y-round(r1*sin(u));
   end;
  u:=u+pi/14;
 end;
p[28]:=p[0];
polygon(p);
end.
Вопрос: Необходимо получить такую натуральную последовательность максимальной длины, у которой каждый текущий элемент, начиная со второго, является наибольшим делителем предыдущего элемента этой последовательности. Первый элемент последовательности по определению равен n.
Категория: школьный раздел
Ответы:
var n, i: Longint;
begin
  Read(n); Write(n);
  repeat
    for i:=n div 2 downto 1 do
      if n mod i=0 then begin
        n:=i; Write(' ',n); Break;
      end;
  until n=1;
end.
Вопрос: Дана матрица , состоящая из 4-х квадратных матриц
Переставить друг с другом квадратные матрицы, расположенные на главной и побочной диагоналях.
Ввод рандомом (программа Паскаль)
Категория: школьный раздел
Ответы:
uses crt;
const n=5;
var a:array[1..2*n,1..2*n]of byte;
    i,j,x:byte;
begin
clrscr;
randomize;
writeln('Исходная матрица');
for i:=1 to 2*n do
 begin
  for j:=1 to 2*n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[n+i,n+j];
  a[n+i,n+j]:=x;
  x:=a[i,n+j];
  a[i,n+j]:=a[n+i,j];
  a[n+i,j]:=x;
 end;
writeln('Перестановка блоков');
for i:=1 to 2*n do
 begin
  for j:=1 to 2*n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.
Вопрос: Вывести значения элементов, начиная с первого, так что бы значение выводимого элемента отличалось от значения предыдущего выведенного не более чем на 1000.
Категория: школьный раздел
Ответы:
var a,b:integer;
begin
  read(a);
  write(a,' ');
  b:=a;
  while a<>0 do 
  begin
    read(a);
    if  abs(a-b)<=1000
    then 
      begin 
        write(a,' ');
        b:=a;
      end;
  end;
end.
Вопрос: Нужно написать программу с такими условиями:
1) Найти произведение ряда S = 15*16*17*...*n
2) Определить максимальный элемент побочной диагонали массива A размерностью mхm и вывести индексы всех элементов массива, равных ему.
Категория: школьный раздел
Ответы:
var a:array[1..10,1..10] of integer;
    m,i,j,mx:integer;
begin
write('Введите размер матрицы m=');
readln(m);
randomize;
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
mx:=a[1,m];
for i:=2 to m do
if a[i,m-i+1]>mx then mx:=a[i,m-i+1];
writeln('Максимальный элемент побочной диагонали=',mx);
writeln('Индексы элементов, равных максимальному');
for i:=1 to m do
for j:=1 to m do
if a[i,j]=mx then write('[',i,',',j,'] ');
end.
Вопрос: Дано натуральное k. Напечатать k-ю цифру последовательности 149162536, в которой выписаны подряд квадраты всех натуральных чисел.
Категория: школьный раздел
Ответы:
uses crt;
var k,b,n,i,c,s,a: integer;
begin
clrscr;
write('Vvedite k=');readln(k);
s:=0;
i:=0;
while s<k do//идем вперед, создаем ряд из квадратов
   begin
     i:=i+1;
     b:=i*i;
     c:=1;
     n:=10;
     while b div n <> 0 do//считаем цифры
       begin
         n:=n*10;
         c:=c+1;
       end;
    s:=s+c;
    write(b);//перешли цифру, или ровно попали
  end;
s:=s-c;//назад на 1 число
n:=n div 10;
while s<>k do//от его начала по одной цифре идем вперед
   begin
     a:=b div n mod 10;
     n:=n div 10;
     s:=s+1;//доходим до нужной цифры
   end;
writeln;
write(a);//выводим
writeln;
readln
end.
Вопрос: Посчитать количество восклицательных предложений в тексте длины не более 255 символов.
Категория: школьный раздел
Ответы:
var s: String; i, k: Integer;
begin
  ReadLn(s);
  for i:=2 to Length(s) do
    if (s[i]='!') and (s[i-1]<>'!') then Inc(k);
  WriteLn(k);
end.
Вопрос: Проверка симметричности двоичного представления числа
Категория: школьный раздел
Ответы:
var
  a, b,i,m,n,d,j : integer;
  s:string;
  log:boolean;
  input,output:text;
  begin
  assign(input,'input.txt');
 reset(input);
 read(input,a,b);
 close(input);
 assign(output,'output.txt');
 rewrite(output);
 for i:=a to b do
    begin
     m:=i;
     s:='';
     while m>0 do begin     //    переводим число в строковой формат
       s:=inttostr(m mod 2)+s;
       m:=m div 2;
     end;
    n:=length(s);
    log:=true;
    for j:=1 to n div 2 do
    if log and(s[j]<>s[n-j+1]) then  log:=false;     //          число не симметричное
    if log then write(output,i,' ');        //   если число симметричное, то выводим его
  end;
 close(output);
end.
Вопрос: Сравнительная таблица Товарное  и Натуральное хозяйство
Категория: школьный раздел
Ответы:
Товарное хозяйствоНатуральное хозяйствочастная собственность на средства производствапроизводитель имеет средства производствапродукт для обменапродукт производиться для себяпродукт труда является собственностью производителяпримитивная техника основано на ручном трудемедленные темпы развитияоснова - земледелие в соотношении с ремеслом
Вопрос: Когда стало известно, что Васко да Гама проложил морской путь в Индию, в Венеции говорили, что давно не слышали такой плохой новости. Почему?
Категория: школьный раздел
Ответы:
Венеция была важным торговым городом на пути из Азии, практически все пряности и другие товары из Индии, государств Аравийского полуострова, Египта, Сирии, стран Междуречья доставлялись в Европу именно через Венецию. Венеция была королевой Средиземноморья, успешно развивавшимся и богатеющим год от года за счет торговли с азиатскими и североафриканскими государствами. Первый удар могуществу Венеции был нанесен турками в самом начале второй половины XV века, когда Константинополь был взят мусульманами, и начался период венецианско-турецких войн за господство в Средиземном море. 
Второй - и куда более сильный удар - нанес венецианец по рождению Васко да Гама, когда открыл более безопасный и более дешевый путь в Индию, пролегающий вокруг Африки. Было это в 1498 году.
Вопрос: Найдите на карте  все направления поисков морского пути из Европы в страны Востока. По каким из них тогда были проложены торговые пути, а по каким - нет? Почему?
Категория: школьный раздел
Ответы:
Португалия и Испания первыми среди европейских стран предприняли поиски морских путей в Африку и в Индию. Морской путь, связывавший итальянские торговые города со странами Северо-Западной Европы, проходил через Гибралтарский пролив и огибал Пиренейский полуостров.
Европейцев к этому побуждала очень сильная заинтересованность в восточных товарах, и в первую очередь - в пряностях, которые в средневековой Европе стоили баснословных денег и торговля которыми приносила огромные барыши  Захват турками-османами в 1453 году Константинополя (нынешний Стамбул), перекрыл торговые связи Запада с Востоком через город и проливы (Босфор и Дарданеллы). А с падением Каира в 1517 году небольшой торговый путь через Суэцкий канал также стал невозможным. Это вынудило искать новые пути выхода европейцев на Восток - в частности подтолкнуло к Великим географическим открытиям (попытка добраться морским путем до Индии, обогнув Африку). Ну и также стремление обогатиться за счет этих новых путей (в случае успеха).
Вопрос: Какие страны сыграли ведущую роль в поисках северо-западного и северо-восточного путей в страны Востока? Почему это были не Испания и не Португалия?
Категория: школьный раздел
Ответы:
Период Великих географических открытий, важнейшими из которых были открытие Америки и морского пути в Индию вокруг Африки, можно условно поделить на два этапа; первый -западноевропейские страны, которые начали поиски новых морских путей, в Африку, Индию и Азию, были Португалия и Испания, второй - Голландия. Если ранее ведущую роль играли испанские и португальские мореплаватели, то с 16 века с ними на равных выступают и представители других стран. Особенную активность проявляла Голландия, добившаяся независимости от Испании и в короткий срок ставшая ведущей морской торговой державой.
Вопрос: В чём вы видите причины наступления эпохи Великих географических открытий?
Категория: школьный раздел
Ответы:
-благодаря развитию книгопечатания в Европе становится популярной «Книги Марко Поло» о странах Востока;
-  технические достижения — появление многомачтовых судов, способных идти под любым ветром (каравелла);
-   появление новых карт и компасов для ориентирования в открытом море;
- появление огнестрельного оружия;
- в 15 веке в Европе возобновляется интерес к науке;
-     в. Европе произошло возрождение античных идей о шарообразности Земли.
Вопрос: Заполните таблицу «Географические открытия XV—XVII вв.».
Категория: школьный раздел
Ответы:
Дата открытияЕго  основное содержаниеИмяпервооткрывателяСтрана, снарядившая экспедицию1487-1488Обогнул Африку, вышел в  Индийский океанБартоломео ДиашПортугалия1497-1499Достиг берегов ИндииВаско да ГамаПортугалия1492-1493Открыл  новый материкХристофор КолумбИспания1519-1522Совершил первое кругосветноепутешествиеФернан МагелланПортугалия1497-1498Открыл СевернуюАмерикуДжон КаботАнглия1642-1644ОткрытиеАвстралииАбель ТасманаГолландия
Вопрос: Почему к XVIII в. сословное деление общества себя дожило?
Категория: школьный раздел
Ответы:
Однако во Франции существовали устаревшая финансовая система и огромный государственный долг, на выплату процентов по которому уходило до половины годовых доходов королевства. Для выхода из финансового кризиса необходимо было провести реформы: отменить налоговые льготы для привилегированных сословий и ввести общий для всех французов налог на землю. 
Но просчёты в экономической политике правительства обнаружились в неурожайный период, а нужные реформы министрам короля провести не удавалось из-за сопротивления дворянства, духовенства и городских парламентов (напомним, что парламентарии именовались в то время «дворянством мантии», их должности покупались и передавались по наследству). В своей борьбе против робких попыток реформ представители дворянства, духовенства и парламентариев объявляли себя приверженцами философских идей века Просвещения и противниками королевского «деспотизма». Таким образом, к концу 1780 х гг. Франция переживала одновременно финансовый и политический кризисы, которые осложнились неурожаем 1788 г., вызвавшим настоящий голод. В деревнях вспыхивали волнения, в городах росло недовольство.
Вопрос: Почему прежде покорное третье сословие открыто воспротивилось воле короля? Какие изменения в социально-экономическом строе Франции способствовали этому?
Категория: школьный раздел
Ответы:
Весной 1789 г. во Франции продолжался экономический кризис.
Измученные дороговизной, крестьяне и горожане поднимали голодные бунты. В апреле властям впервые пришлось применить войска, чтобы разогнать толпу недовольных, парижан. Благодаря публицистам - противникам существующих порядков, в сознании народа складывался образ коллективного врага - «аристократов», якобы виновных во всех невзгодах жителей королевства. 
Заседания Генеральных штатов открылись в королевском дворце в Версале 5 мая 1789 г. Депутаты от духовенства и дворянства в ярких шёлковых мантиях поднялись в зал по парадной лестнице. Представителей же третьего сословия в их скромной тёмной одежде впустили через чёрный ход. Их старались унизить и другими способами. Но представители третьего сословия не желали мириться с той ролью, которая им отводилась. Во время тронной речи короля они отказались исполнить старинный церемониал - снять шляпы и опуститься на одно колено. А когда король потребовал утвердить новые налоги раздельным голосованием «третьи» открыто выразили протест. Они настаивали на совместном и равном голосовании; ведь в противном случае у первых двух сословий было бы большое преимущество
Вопрос: Почему депутаты от третьего сословии пошли па провозглашение Национального, а затем и Учредительного собрания? Чем их не устраивали Генеральные штаты?
Категория: школьный раздел
Ответы:
В тот же вечер депутаты от третьего сословия начали самостоятельно обсуждать все важные проблемы. 17 июня по призыву известного журналиста аббата Эммануэля Сийеса они провозгласили Генеральные штаты Национальным собранием. К «третьим» присоединилась и часть священников Объявив себя представителем интересов всех французов, Национальное собрание постановило, что отныне налоги будут взиматься только с его согласия.  И тут случилось неожиданное: депутаты от духовенства большинством. голосов (149 против 137) решили примкнуть к Национальному собранию! В ответ король распорядился запереть зал заседаний. Утром 20 июня депутаты Национального собрания заняли зал для игры в мяч и дали историческую клятву - не расходиться, пока не будет выработана и принята конституция. Вскоре к членам Национального собрания присоединились и многие депутаты дворяне. Большинство солдат из местного гарнизона также выказали ему свою поддержку. 
9  июля Национальное собрание провозгласило себя Учредительным, подчеркнув этим своё намерение принять конституцию. Популярный в народе генеральный контролёр (т. е. глава финансового и торгового ведомства) Жак Неккер и другие министры советовали королю пойти на уступки,  но в ответ Людовик XVI отправил их в отставку. По Парижу мгновенно разнёсся слух, что вслед за отставкой Неккера король разгонит Учредительное собрание, а его лидеров арестует и заточит в средневековую парижскую крепость тюрьму Бастилию. Напряжение нарастало.
Вопрос: Почему Людовику XVI понадобилась поддержка Генеральных штатов? Разве всесильный король не мог и без их помощи принять все необходимые решения?
Категория: школьный раздел
Ответы:
В 1302 году Людовик XVI, чтобы заручиться поддержкой разных сословий в борьбе против папы (папа Римский) впервые созвал Генеральные штаты. Это было собрание представителей сословий -духовенства, дворянства и бюргерства. Делегатами от сословий обычно выступали самые влиятельные люди. С того времени короли каждый раз, когда хотели ввести налог, созывали Генеральные штаты.
При утверждении налогов между сословиями часто возникали споры. Эти разногласия ослабляли влияние Генеральных штатов на государственные дела. 
Так в начале XIV века во Франции возникла сословная монархия-государство, в котором королевская власть опиралась на собрание представителей сословий.
Вопрос: Почему депутаты Учредительного собрания отказались от применения силы против восставших крестьян? Подумайте, можно ли оправдать действия крестьян. Свой ответ обоснуйте.
Категория: школьный раздел
Ответы:
Ещё в бурные июльские дни восставшие парижане разгромили и сожгли ненавистные таможенные заставы, где взимались крайне высокие пошлины за ввозимые в город, товары, в том числе продовольствие. Этому примеру последовали жители многих других городов. Начались волнения и в деревнях. Крестьяне врывались в замки и усадьбы сеньоров, громили их и сжигали документы с записями своих повинностей. Сдержать эту стихию было невозможно.
В Париж из самых разных мест приходили сообщения о грабежах и поджогах, насилиях и убийствах. 
Одни депутаты Учредительного собрания, опасаясь погружения страны в хаос и беззаконие, предлагали применить к грабителям и разбойникам силу. Другие считали, что, во избежание дальнейшего разгула насилия надо пойти на уступки и срочно отменить все сеньориальные повинности. В итоге 4-11 августа была принята серия декретов (т. е. законов, указов), по сути, уничтоживших сеньориальный строй во Франции. Одни повинности крестьян были упразднены, другие предстояло выкупить, но позднее отменили и их.
Одновременно Учредительное собрание призвало население к порядку. Но многие крестьяне восприняли эти декреты как оправдание своих действий и даже как «сигнал» к новым выступлениям, и историю эти события вошли как «великий страх» -так называли их аристократы
Вопрос: Чем, по-вашему, руководствовались многие священники и дворяне, присоединяясь к Национальному собранию?
Категория: школьный раздел
Ответы:
Большая часть священников и дворян, присоединяясь к Национальному собранию, надеялась получить поддержку политиков в их начинаниях, имевших право голоса в Генеральных штатах. И тех, и других, очень устраивало, что налоги будутвзиматься только с согласия Национального собрания.
Вопрос: Людовик XVI долго считал, что в стране происходит всего лишь «мятеж». А какие признаки позволяют сказать, что это был не мятеж, а именно революция?
Категория: школьный раздел
Ответы:
Основным признаком, который позволяет утверждать, что это был не бунт, который можно подавить, а именно революция - это готовность вооруженного сопротивления парижан, к которым присоединились солдаты-гвардейцы с пушками. И бунт, и революция имеют один общий признак - это массовость вступления. Но, в отличие от бунта, который носит локальный (местный) характер, бывает направлен на устранение какой-либо одной цели, не имеет под собой идеологической почвы и часто не имеет организации, революция - это выступление, направленное на коренное преобразование политической системы государства и радикальное изменение структуры общества. Этого и не понимал Людовик XVI, который считал, что в стране происходит всего лишь "бунт" по какой-то локальной причине, устранив которую или пойдя на уступки, можно устранить и недовольство общества.
Вопрос: На каких общих идеях основаны французская Декларация прав человека и гражданина и американская Декларация независимости?
Категория: школьный раздел
Ответы:
26 августа 1789 г. Учредительное собрание утвердило Декларацию прав человека и гражданина. В этом документе, как и в американской Декларации независимости, провозглашались права человека на жизнь, свободу и равенство. Неотъемлемыми правами граждан признавались также свобода слова, личности, право на частную (личную) собственность и на сопротивление угнетению. Были отменены прежние сословные привилегии. Основные принципы Декларации сохраняют своё значение и в наши дни.
Вопрос: В наказе Генеральным штатам жители одного из церковных приходов в Бретани писали: «Чтобы отныне ни один налог не устанавливался без согласия и содействия нации. Чтобы дорожные пошлины были уничтожены полностью и заменены обложением, равно падающим на все три сословия… Уничтожить феодальный строй… Уничтожить церковную десятину как в корне противоречащую свободе собственности и вредную для сельского хозяйства».
Подумайте, чьи интересы выражал этот наказ. Можно ли считать его отражающим пожелания большинства нации? Почему?
Категория: школьный раздел
Ответы:
нет, в других странах более либеральные взгляды на феодальный строй и церковь, но эти пожелания можно считать типичными для большинствафранцузов. Так как именно обычные люди (население) составляли наказы своим депутатам.
Вопрос: В преддверии революции во Франции появилось множество листовок, брошюр (маленьких книжечек) и других изданий, в которых представители сословий отстаивали свои взгляды. Аббат Э. Сийес, ставший затем одним из лидеров революции, в своей брошюре спрашивал: «Что такое третье сословие?» И сам же отвечал: «Всё!» «Чем оно было до сих пор в политическом строе?» – «Ничем». «Чем оно желает быть?» – «Хоть чем-нибудь».
Объясните, что хотел сказать этим автор. Какой смысл он вкладывал в слова «хоть чем-нибудь»?
Категория: школьный раздел
Ответы:
это в предверии революции и смены правительства, тут подразумевается что стране нужны перемены и не важно какими средствами
Вопрос: На заседании Учредительного собрания 4 августа 1789 г. депутат герцог Эгильон заявил: «Господа, нет человека, который бы не содрогался при виде ужасных сцен, ареной которых является Франция… Речь идёт не только о вооружённых разбойниках, которые стремятся обогатиться, пользуясь народными бедствиями… Народ стремится стряхнуть, наконец, с себя то иго, которое так долго угнетало его, и нужно, господа, признаться, что это возмущение хотя и преступно, как и всякое движение, связанное с насилием, но всё же может найти себе оправдание в том угнетении, жертвой которого был народ».
Подумайте, насколько справедливо такое мнение. Какие интересы разобщали буржуазию и народные низы, объединённые в третье сословие?
Категория: школьный раздел
Ответы:
У насилия может быть оправдание только в одном случае: доведение до отчаяния. Именно об этом и говорит  на заседании Учредительного собрания депутат. 
Разница была связана с тем, что развитие буржуазии не подстегивали «низы» — крестьянство так и оставалось в крепостной зависимости.
Вопрос: Заполните хронологическую таблицу «Начальный этап Французской революции».
Категория: школьный раздел
Ответы:
ДатаСобытие14 июля 1789 гпервый этап взятия Бастилии5 августа 1789гДекларация об уничтожении феодальной собственности26 августа 1789 гДекларация прав человека и гражданина5 октября 1789 гПереезд Людовика XVI в Париж17 июня 1789 гпровозглашение Генеральных штатов Национальным собранием,
Вопрос: Почему король не был низложен после его попытки бегства из страны в июне 1791 г., но лишился власти и жизни после штурма санкюлотами королевского дворца 10 августа 1792 г.? Что изменилось за период между этими событиями?
Категория: школьный раздел
Ответы:
Народ требовал низложить короля и отдать его под суд. Однако Учредительное собрание заявило, что монарха «похитили», а сам он ни в чём не виноват. Крайне левые революционеры воспользовались этим событием и потребовали судить короля.
В Париже начались массовые антимонархические демонстрации. Во время одной из них, состоявшейся 17 июля на Марсовом поле, традиционном месте парадов, толпа учинила кровавые расправы над мнимыми агентами «аристократии» и стала забрасывать солдат камнями. На Марсово поле прибыли мэр Парижа Жан Байи и дополнительные войска во главе с Жильбером Лафайетом, командовавшим Национальной гвардией. После залпов картечью из орудий толпа рассеялась, оставив на поле несколько десятков убитых. Вслед за этим власти провели аресты некоторых революционеров-активистов.
Вопрос: Что способствовало усилению революционного террора и ожесточению насилия со стороны низов в ходе Французской революции? Как вы считаете, может ли революция обойтись без насилия?
Категория: школьный раздел
Ответы:
Большинство санкюлотов (так называли городскую бедноту) поддерживали революцию в надежде, что она хоть в чём-то улучшит их жизнь. О методах и средствах, которые при этом использовались, санкюлоты, как правило, даже не задумывались. Насилия и убийства стали обыденной приметой тех лет.
На настроения городских низов большое влияние оказывали радикально настроенные журналисты и политики. Большинство санкюлотов (так называли городскую бедноту) поддерживали революцию в надежде, что она хоть в чём-то улучшит их жизнь. О методах и средствах, которые при этом использовались, санкюлоты, как правило, даже не задумывались. Насилия и убийства стали обыденной приметой тех лет.
Вопрос: Почему в годы революционных войн тысячи французов с энтузиазмом шли добровольцами в армию? Что помогало им пересилить естественную боязнь быть убитыми или искалеченными на войне?
Категория: школьный раздел
Ответы:
В связи с эмиграцией многих дворян в армии не хватало опытных офицеров, дисциплина в войсках была крайне низкой, французские солдаты нередко бежали с поля боя.
Тем временем жирондисты готовились военным путём свергнуть монархию. Однако на проекты законов, вводившие жёсткие меры в отношении эмигрантов и священников, принятые под давлением жирондистов, король наложил вето, а министров-жирондистов в июне 1792 г. отправил в отставку.
Вопрос: Почему революционеры объявили нападение санкюлотов на тюрьмы в сентябре 1792 г. и истребление заключённых «революционной самообороной»? Как, по-вашему, они могли это мотивировать?
Категория: школьный раздел
Ответы:
В конце августа – начале сентября 1792 г. французы потеряли важные крепости Лонгви и Верден, австро-прусские войска приближались к Парижу. В столице воцарился страх перед неприятелем и перед возможным заговором «аристократов». Эти настроения привели к тому, что 2–5 сентября толпы простых парижан по призыву Жана Поля Марата и во главе с революционерами-активистами, а также с согласия Коммуны Парижа учинили массовые убийства заключённых городских тюрем (в основном жертвами резни оказались дворяне и священники). Всего в столице погибло около 1500 человек. Законодательное собрание не смогло предотвратить чудовищные преступления.
Большинство санкюлотов (так называли городскую бедноту) поддерживали революцию в надежде, что она хоть в чём-то улучшит их жизнь. О методах и средствах, которые при этом использовались, санкюлоты, как правило, даже не задумывались. Насилия и убийства стали обыденной приметой тех лет.
Вопрос: Ещё в декабре 1790 г. в своей газете «Друг народа» Ж.-П. Марат требовал казнить всю королевскую семью, всех поддерживавших монархию генералов, министров и т. д.: «Перебейте без всякой пощады весь парижский генеральный штаб, всех депутатов Национального собрания… Ещё шесть месяцев назад 500–600 голов было бы достаточно… Теперь, возможно, потребуется отрубить 5–6 тыс. голов. Но если бы даже пришлось отрубить 20 тыс., нельзя колебаться ни одной минуты».
Дайте оценку этим словам. Почему Друг Народа считал, что казней должно быть всё больше и больше? Была ли, по-вашему, такая позиция Марата исключительной или у него имелись единомышленники? Свой ответ обоснуйте.
Категория: школьный раздел
Ответы:
это достаточно  жестокая позиция имела своих последователей так по призыву Жана Поля Марата и во главе с революционерами-активистами, а также с согласия Коммуны Парижа учинили массовые убийства заключённых городских тюрем (в основном жертвами резни оказались дворяне и священники). Всего в столице погибло около 1500 человек. Законодательное собрание не смогло предотвратить чудовищные преступления.
Большинство санкюлотов (так называли городскую бедноту) поддерживали революцию в надежде, что она хоть в чём-то улучшит их жизнь. О методах и средствах, которые при этом использовались, санкюлоты, как правило, даже не задумывались. Насилия и убийства стали обыденной приметой тех лет.
Вопрос: В 1792 г. русская императрица Екатерина II составила документ «О мерах к восстановлению во Франции королевского правления». В нём, в частности, говорилось: «В настоящее время достаточно 10 тыс. человек войска, чтобы пройти Францию из конца в конец… К набранному войску неминуемо присоединятся все оставившие родину французские дворяне, а, может быть, также и полки немецких государей. Посредством этого войска можно освободить Францию от разбойников, восстановить монархию и монарха, разогнать самозванцев, наказать злодеев».
Объясните, что позволяло Екатерине II рассчитывать на быструю победу интервентов в 1792 г. На какие силы предполагали опереться европейские монархи в борьбе с революцией?
Категория: школьный раздел
Ответы:
за счет солдат из ряда интеллегенции и солдат союзной германии, так же  было много недовольных этим. Поэтому Екатерина была уверена, что большинство людей присодинятся к армии "освободителей"
Вопрос: В «Декрете о массовом наборе» говорилось:
«С настоящего момента и до тех пор, пока враги не будут изгнаны из пределов территории республики, все французы объявляются в состоянии постоянной реквизиции. Молодые люди пойдут сражаться на фронт, женатые должны ковать оружие и подвозить продовольствие; женщины будут готовить палатки, одежду и служить в госпиталях; дети – щипать корпию [перевязочный материал из ниток] из старого белья; старики заставят выводить себя на площади, чтобы возбуждать в воинах храбрость, ненависть к королям и мысль о единстве республики. Национальные здания будут превращены в казармы; площади станут оружейными мастерскими; земля из погребов будет подвергнута выщелачиванию, чтобы извлечь из неё селитру».
Подумайте, какие чувства должны были испытывать граждане революционной Франции при знакомстве с текстом этого декрета. Какие обязанности на них возлагались? Могли ли все эти меры помочь в борьбе с противником?
Категория: школьный раздел
Ответы:
революция застравляла граждан постоянно жить в страхе и неопределенности, обязанности в основном военные и конечно в данных условиях они могли помочь в борьбе с противником
Вопрос: Если при Директории окрепла власть банкиров и промышленников, то почему впоследствии те и другие выступили против неё и поддержали Наполеона Бонапарта?
Категория: школьный раздел
Ответы:
Четырёхлетний период правления Директории привёл к укреплению господства банкиров и промышленников, наметившегося ещё в первые годы революции. Главным лицом в Директории стал Поль Баррас, один из организаторов термидорианского переворота. За годы Директории цены на предметы первой необходимости выросли в 230 раз, а зарплата – только в 63 раза. Промышленников и банкиров это, разумеется, устраивало. Прочие же слои населения были недовольны таким несоответствием, что создавало почву для волнений и серьёзных конфликтов.
Идейным вдохновителем заговора против режима Директории стал «ветеран революции» и член Директории Эммануэль Сийес. К нему присоединились известные военные и политики. Сийес мечтал с помощью изменения конституции создать умеренную и устойчивую республику. Для этого надо было найти сильного и авторитетного лидера, который мог бы осуществить военный переворот, а затем передать управление обновлённой республикой вновь избранным правительству и парламенту. На роль такого лидера был выбран генерал Наполеон Бонапарт.
Вопрос: Для чего вдоль границ Франции создавались зависимые от неё («дочерние») республики? Не удобнее ли было присоединить эти земли к Франции?
Категория: школьный раздел
Ответы:
17 октября 1797 г. Австрия подписала в Кампо-Формио выгодный для Французской Республики мирный договор, по которому признавала права Франции на Бельгию, Ионические острова в Средиземном море и левый берег Рейна, а также признавала создание зависимых от Франции «дочерних» республик: Бата́вской (Нидерланды), Гельвети́ческой (Швейцария), Цизальпи́нской (Ломбардия), Лигури́йской (Ге́нуя), Римской и Партенопе́йской (Неаполь). Единственным непримиримым военным противником Франции оставалась Англия, но попытки подготовить поход на Британские острова оказались безуспешными.

Франция создавала "дочерние" зависимые республики на своих границах для того, чтобы фактически определять их политику, но одновременно она желала показать Европе, что эти республики свободны и самостоятельны и Франция уважает их суверенитет.
Вопрос: Почему при перевороте 18 брюмера войска поддержали не законную власть, а Наполеона Бонапарта?
Категория: школьный раздел
Ответы:
В октябре 1799 г. Бонапарт прибыл из Египта во Францию, где был встречен ликованием. Но прославленный генерал вовсе не собирался становиться пешкой в чужой политической игре. Именно поэтому он согласился возглавить военный переворот. 9 ноября 1799 г. (по республиканскому календарю – 18 брюме́ра) Законодательный корпус под предлогом существования «якобинского заговора» был переведён из Парижа в загородный дворец Сен-Клу. Назначенный по решению Совета старейшин командующим столичным гарнизоном, Бонапарт принял на себя всю власть в Париже. Два главных участника заговора добровольно ушли в отставку, трёх других членов Директории заставили сделать то же самое.