Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Подробнее - на -
Объяснение:
Киберспорт набирает все больше оборотов в мире. Кто-то считает эту деятельность игроманией. Но так ли это? Какие доходы у киберспортсменов и как, играя в игры, стать миллионером?
В 2019 году общая аудитория киберспорта по всему миру превысила 1 млрд человек. Это больше, чем показатели некоторых традиционных видов спорта: за трансляциями соревнований «Формулы-1» следят не более 500 млн человек, а за бейсболом — около 100 млн человек. Аудитория киберспорта только за последний год выросла в полтора раза.
Существует две важных точки в становлении киберспорта — официальная, когда в 1997 году состоялся первый в мире кибертурнир по Quake — Red annihilation. Тогда же американец Эйнджел Муньез создал первую профессиональную киберспортивную лигу Cyberathlete Professional League (CPL), где играли сначала в Quake, а с 2001 года — и в Counter-Strike. Сейчас лига практически не проводит соревнования, однако с ее организации фактически начинается история киберспорта как большого спортивного направления.
C 10 по 25 августа 2003 года в Ташкенте проводился Первый чемпионат по компьютерным играм — Uzbekistan Cyber Games 2003 (UCG 2003). Чемпионат проводился при официальной поддержке Узбекского агентства связи и информатизации. Организаторами выступили журнал InfoCOM.UZ и клуб TransNet. Генеральным спонсором чемпионата является компания Samsung Electronics. Чемпионат проводился по пяти наиболее популярным компьютерным играм, в семи самых технически оснащенных компьютерных клубах Ташкента. Всего в играх чемпионата приняло участие около 700 геймеров.
2 - б
3 - а
4 - г
Как-то так