Положительные последствия реформации лютера​

принцип доступности священного писания и его свободного истолкования открыл дорогу для бесконечного дробления христианства и появления самых различных исповеданий и толков.  

 

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

 

как естественный результат слияния церкви и государства, многие страны охватили так называемые религиозные войны, в которых под флагом религии шла борьба за политические и интересы. известна своим печальным опытом тридцатилетняя война, швейцарские войны, междоусобицы во франции, крестьянская война в германии.  

 

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

объяснение:

/*VS C++*/
#include <iostream>

using namespace std;

int main() {
    setlocale(LC_ALL, "Russian");
    int N, y, i;
    bool Prime;
    cout << "Введите число: "; cin >> N;
    do {
    Prime = true;
    y = N % 10;
    for (i = 2; i <= (sqrt(abs(y))); i++) {
        if (y % i == 0) {
            Prime = false;
            break;
        }
    }
    if ((Prime) & (y != 0) & (y != 1))
        cout << y << " - простое" << endl;
    else
        cout << y << " - не простое" << endl;
    N = N / 10;    
    } while (N != 0);
    system("pause");
    return 0;
}

Const n=4;
      m=3;
var a: array[,] of integer;
    b: array of integer;
    i,j,k: integer;
begin
  setlength(b,n*m);
  setlength(a,n,m);
  randomize;
  writeln('исходный массив:');
  for i:=0 to n-1 do
  begin
    for j:=0 to m-1 do
      begin 
        a[i,j]:=random(-10,10);
        write(a[i,j]:4);
      end;  
    writeln;
  end;  
// удаление строк массива  
  k:=0;
  for i:=0 to n-1 do
    if a[i,0]<=a[i,m-1] then
    begin
      k:=k+1;
      for j:=0 to m-1 do 
      b[(k-1)*n+j]:=a[i,j];
    end;
// печать нового массива    
  writeln('новый массив:'); 
  setlength(a,k,m);
  for i:=0 to k-1 do
  begin
    for j:=0 to m-1 do
    begin
      a[i,j]:=b[i*n+j];
      write(a[i,j]:4);
    end;   
    writeln;
  end;  
end.

исходный массив:
  -3   5  -5
   2   3   5
  -8   3  -2
   3  -4  -7
новый массив:
   2   3   5
  -8   3  -2