Предмет: История, автор: dmsmsms

Помогите пожалуйста быстрее нужно из темы экономическая политика Петра 1. пункта 1. Роль государства в экономике. Написать 6 причин !!!

Ответы

Автор ответа: alievertogrul87
0

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

Во первых строительство метталургических заводов.Основную роль играли братья Демидовы.

В таких городах,как Санкт Петербург а также северных городах начались строительства портов.В итоге это сказалось лучшим образом на экономике и улучшило состояние России в европе,она стала менее отсталой страной.В таких городах,как Астрахань началась бурная торговля.Кумовства стало меньше,Петр спас Россию от варварства.Он также провел секуляризацию земель крестьян.Также крестьяне приписывались монуфактурам,стали еще более зависимы от государства.В целом,если бы Петр еще и оставил наследника-он был бы величайшим политиком всея Руси

Похожие вопросы
Предмет: Қазақ тiлi, автор: Магрина
Предмет: Информатика, автор: snegincairina
Помогите доделать программу в Делфи!!!!!
1. Найти количество элементов массива, меньших величины С, введенной с клавиатуры.
2. Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента.
3. Преобразовать массив таким образом, чтобы сначала располагались все элементы, отличающиеся от максимального не более чем на 20%, а потом — все остальные

Часть программы уже есть:
unit UnitVector;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Buttons;

type
TformVector = class(TForm)
sgVectorInput: TStringGrid;
btnVectorInput: TButton;
Label1: TLabel;
editVectorSize: TEdit;
btnVectorSize: TBitBtn;
btnRandomVector: TButton;
Button1: TButton;
Label2: TLabel;
Edit1: TEdit;
procedure btnVectorInputClick(Sender: TObject);
procedure btnVectorSizeClick(Sender: TObject);
procedure btnRandomVectorClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
formVector: TformVector;
A : array[1..100] of integer;
SizeA : integer;

implementation

{$R *.dfm}

procedure TformVector.btnRandomVectorClick(Sender: TObject);
var i : integer;
begin
Randomize;
for i := 0 to SizeA - 1 do
begin
A[i]:=random(100)-30;
sgVectorInput.Cells[i,0]:=IntToStr(A[i]);
end;
end;

procedure TformVector.btnVectorInputClick(Sender: TObject);
var i : integer;
begin
for i := 0 to SizeA - 1 do A[i]:=StrToInt(sgVectorInput.Cells[i,0]);

end;

procedure TformVector.btnVectorSizeClick(Sender: TObject);
begin
SizeA:=StrToInt(editVectorSize.Text);
sgVectorInput.ColCount:=SizeA;
end;

procedure TformVector.Button1Click(Sender: TObject);
B,C: integer
begin
B:=0;
a[i]< StrToInt(edit1)
end;

procedure TformVector.FormCreate(Sender: TObject);
begin
SizeA:=10;
end;

end.