Danil185071
02.04.2021 03:53

У яких регіонах темпи зростання панщини та закріпачення селян були найвищими? A )Лівобережжя, південь Київщини та Брацлавщини
Б)Руське, Белзьке, Волинське воєводство та північ і захід Подільського
В )Київське воєводство, східна частина Волинського та Брацлавського

До іть пліз ів

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
aliceBRATSKAIA
27.01.2020 21:19

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

Описывают причины Великих географических открытий Описывает ход Великих географических открытий,  фиксируя на Описывают причины Великих географических открытий Описывает ход Великих географических открытий, фиксируя на карте основные маршруты европейских путешественников Сравнивает отношения к морским экспедициям европейских и китайских правителей Критерии оценивания

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

Цели экспедиций Направления экспедиций Отношение к местному населению Итоги экспедиций  Цели экспедиций Направления экспедиций Отношение к местному населению Итоги экспедиций

0,0(0 оценок)
Ответ:
Надя8686
16.02.2023 06:14
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-бота