Dim b(4,2)
for i=1 to 4 step 2
for j=1 to 2
b(i,j)=int(RND*10-8)
print b(i,j);
next j
print
next i
kol=0
for i=1 to 4 step 2
for j=1 to 2
if b(i,j) mod 3=0 then
kol=kol+1
end if
next j
next i
print kol
Var a,b:integer;
begin
read(a,b);
a:=a+b;
b:=a-b;
a:=a-b;
writeln('a=',a,' b=',b);
<span>end.</span>
Написал, только там можно не задана размерность пароля в 4 цифры, то есть можно вводить пароль любой длинны и не только цифры.
Условие проигрыша: ножницы против камня, камень против бумаги, бумага против ножниц.
Максимальное количество проигрышей Мирослава определяется максимально возможным количеством событий, когда возникали пары:
s2 ⇔ r1, r2 ⇔ p1, p2 ⇔ s1
Количество таких пар не превышает суммы следующих минимальных значений: K=min(s2,r1)+min(r1,p1)+min(p2,s1)
Хранятся практически вечно и в неизменном виде, что позволяет в любой момент апеллировать к их результатам и использовать их в статистических целях.