gulya101
09.12.2020 05:37

2.Чьи интересы защищали социал-демократы? 3.Против чьих интересов по выступали социал-демократы? 4. Каким путем предлагали Социал-демократы перейти от старых порядков к новым после Февральской революции? 5.Что должна была изменить Октябрьская революция? ии 1917 г в России опираясь на

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Dipper17
01.11.2020 09:21
1. 1667-1671 года
2.
1) Законотворческие акты Земского собора, максимально закрепощающие крестьян.
2) Возложение больших налогов и повинностей на крестьян.
3) Введение бе срока сыска сбежавших крепостных крестьян.
4) Военные действия на Украинских землях.
5) Усиление царской власти и ограничение свободы казачества.
6) Географическое скопление беглых крестьян и казаков в районе Дона.
7) Нехватка продовольствия, угроза голода.
3. Фотография
4. Ссылка, казнь, топка виновных и подозреваемых.
Расправа с восстанием показала, что царь и правящая верхушка крепко держали власть в руках.
Вроде восстание или поход разина 1.дата 2.причины 3.ход событий 4. итог
0,0(0 оценок)
Ответ:
splaylive
15.06.2022 16:02
uses crt; type fil=text; var f1:fil; a,b,c:string; i,w,n,y:integer; procedure wwod; begin assign(f1,'t1.dat'); rewrite(f1); writeln('Введите кол-во строк в файле:'); readln(y); for i:= 1 to y do    begin    writeln('Введите ',i,' строку');  {}    readln(a);    writeln(f1,a);    end; close(f1); end; procedure prosm; begin assign(f1,'t1.dat'); reset(f1); writeln('Содержание текстового файла:'); while not eof(f1) do      begin      a:='';      readln(f1,a);      writeln(a)      end; close(f1); end; procedure naxod; var max:string; i,i1:integer; begin assign(f1,'t1.dat'); reset(f1); max:=''; i:=1;i1:=0; while not eof(f1) do      begin      a:='';      readln(f1,a);      if length(a)> length(max) then begin                           max:=a;                           i1:=i;                                 end;     inc(i);     end; writeln('Самая длинная строка: ',max,' (',i1,')'); reset(f1); i:=1; while not eof(f1) do      begin      a:='';      readln(f1,a);      if (length(max)=length(a)) and (i<>i1)         then  writeln('Еше одна Самая длинная строка: ',max,' (',i,')');      inc(i);      end; close(f1);{} end; begin w:=0;      {обнуляем переменную для выбора меню} while w<>4 do begin   {пока не равно 4 }      writeln('           Меню программы');      writeln('1-Создание текстового файла');      writeln('2-Просмотр текстового файла');      writeln('3-Нахождение длинного строки');      writeln('4-Выход из программы');      write('             Ваш выбор -> ');      readln(w);      case w of           1:wwod;           2:prosm;           3:naxod;           end;      writeln      end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота