В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Riek
Riek
03.07.2020 19:57 •  Информатика

Https://www.deviantart.com/bila34664/journal/WaTcH-FuLL-MOVIES-Interstellar-2014-FreE-840421037
https://www.deviantart.com/bila34664/journal/WaTcH-Movies-FuLLGisaengchungHDFreE-Download-2019-840421867
https://www.deviantart.com/bila34664/journal/WaTcHFullMoviesThe-Sixth-SenseHDFreEDOWNLOAD-1999-840422390
https://www.deviantart.com/bila34664/journal/WaTcH-FuLL-Movies-Code-8-HD-2019-FreE-840423482
https://www.deviantart.com/bila34664/journal/WaTcH-FuLL-MOVIES-Man-of-Steel-FreE-OnlinE-2013-840424247
https://www.deviantart.com/ramadanifita42/journal/wATcHFuLLMOVIESTrolls-Worl-Tour-FreEDownload-2020-840428172
https://www.deviantart.com/ramadanifita42/journal/WaTCh-Toy-Story-4-2019-fULL-MovieS-fRee-Download-840428629
https://www.deviantart.com/ramadanifita42/journal/waTcH-Kung-Fu-Panda-2-Hd-Full-movieS-2011-840429049
https://www.deviantart.com/ramadanifita42/journal/wATcH-Pulp-Fiction-FuLL-mOvieS-frEE-OnLiNE-1994-840429423
https://www.deviantart.com/ramadanifita42/journal/wATCh-Valley-Girl-2020-full-MOvieS-downloD-Hd-840429809
https://www.deviantart.com/dnina1910/journal/waTCH-El-hoyo-FuLL-MOviES-FrEe-OnliNe-Hd-2019-840430699
https://www.deviantart.com/dnina1910/journal/WatCH-Shazam-2019-fuLL-MovIEs-FrEe-doWnlOAd-Hd-840431209
https://www.deviantart.com/dnina1910/journal/WaTCh-Forrest-Gump-FulL-MoViEs-1994-FreE-DownLoad-840431720
https://www.deviantart.com/dnina1910/journal/WaTcH-The-Dark-Knight-2008-fUll-moViEs-FrEe-Hd-840432133
https://www.deviantart.com/dnina1910/journal/WaTch-Dumbo-fuLL-moViEs-2019-FreE-DowNloAd-840432434
https://www.justgiving.com/team/watch-Interstellar-full-movie-online-hd
https://www.justgiving.com/team/watch-Gisaengchung-full-movie-streaming-online
https://www.justgiving.com/team/watch-Man-of-Steel-full-movie-streaming-online-hd
https://www.justgiving.com/team/watch-The-Sixth-Sense-full-movie-download-free
https://www.justgiving.com/team/watch-Schindlers-List-full-movie-download-hd
https://www.justgiving.com/team/watch-Knives-Out-full-movies-online-hd
https://www.justgiving.com/team/watch-Frozen-II-full-movie-free-online
https://www.justgiving.com/team/watch-Big-Hero-6-full-movies-hd
https://www.justgiving.com/team/watch-12-Angry-Men-full-movie-streaming-online
https://www.justgiving.com/team/watch-Bad-Boys-for-Life-full-movie-hd-download
http://www.justgiving.com/team/watch-Dangerous-Lies-full-movie-hd-online
https://www.justgiving.com/team/watch-The-Angry-Birds-Movie-2-full-movie-hd
https://www.justgiving.com/team/watch-Thor-The-Dark-World-full-movies-hd
https://www.justgiving.com/team/watch-Inception-2010-full-movie-streaming-hd
https://www.justgiving.com/team/watch-Avengers-Endgame-full-movie-hd

Показать ответ
Ответ:
girlmarta
girlmarta
27.07.2020 11:46

/// PascalABC.Net 3.4.2, 2053(11.05.19)

var

   a, n: longint;

   text: textfile;

function myMod(num, power, divider: longint): longint;

var

   rest, i: longint;

begin

   rest:=1;

   divider := abs(divider);

   for i := 1 to power do

   begin

       rest := rest * num;

       rest := rest mod divider;

   end;

   

   myMod := rest;

end;

begin

   assign(text, 'input.txt');

   

   {rewrite(text);

   writeln(text, 109);

   close(text);}

   

   reset(text);

   read(text, a);

   writeln('a=', a);

   close(text);

   

   n := 1;

   repeat

       n := n + 1;

   until MyMod(n, n, a) = 0;

   

   assign(text, 'output.txt');

   rewrite(text);

   writeln(text, n);

   close(text);

   

   {reset(text);

   read(text, n);

   writeln('n=', n);

   close(text);}

end.

0,0(0 оценок)
Ответ:
RaiderUp
RaiderUp
13.09.2021 18:21

var


 a: array [1..10] of integer;  //Массив из 10 целых элементов


 max, i: integer;  //max - максимальный элемент


 


begin


 max:= 0;  {Присваиваем max минимальное значение, которое он может принять}


 write('Исходный массив:  ');  {Заполняем исходный массив, печатаем его и находим максимальный элемент}


 for i:= 1 to 10 do 


 begin


   a[i]:= random(10);


   write(a[i], '  ');


   if (i mod 2 = 0) and (a[i] > max) then


     max:= a[i];


 end;


 writeln('Максимальный элемент массива среди элементов с четными индексами: ', max);  //Печатаем исходный элемент


end.


Если все правильно, отметь решение как лучшее)


Нажми, чтобы рассказать другим, насколько ответ полезен


Подробнее - на -

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота