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
/// 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.
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.
Если все правильно, отметь решение как лучшее)
Нажми, чтобы рассказать другим, насколько ответ полезен
Подробнее - на -