Python: с клавиатуры вводится 3 целых числа - это количество денег, которое арссений получал в июне, июле и августе. если арсению давали на карманные расходы круглую сумму (кратную 10) и она превышала 499 рублей, то деньги в этот месяц откладывались на покупку нового футбольного мяча, а если эти условия не выполнялись, то арсений ничего не откладывал в этот месяц. сколько денег будет отложено на новый мяч за все три месяца лета?

june = float(input('Сколько денег Арсений получал в июне? '))

jule = float(input('Сколько денег Арсений получал в июле? '))

aug = float(input('Сколько денег Арсений получал в августе? '))

sum = 0

for i in range(3):

   if (june % 2 == 0) and (june > 499):

       sum = sum + june

   elif (jule % 2 == 0) and (jule > 499):

       sum = sum + jule

   elif (aug % 2 == 0) and (aug > 499):

       sum += aug

print(sum)

1) Имеем → KBRA69KBK
Меняем "RA6" на "FL" → KBFL9KBK
Теперь "KB" на "12B" → 12BFL912BK
Далее убираем 3 последних символа → 12BFL91
ответ: 1

2) Имеем → KBMAM9KBK
Меняем "MAM" на "RP" → KBRP9KBK
Теперь "KBK" на "1212" → KBRP91212
Далее убираем 3 последних символа → KBRP91
ответ: 1

3) Имеем → QWER3QWER1
Меняем "QWER" на "QQ" → QQ3QQ1
Теперь удаляем "3Q" → QQQ1
ответ: 4

4) Имеем: А, Б, В, И.
Условия:
• Начинается с согласной → Б... или В...
• После гласной не стоит гласная → АБ или АВ или ИБ или ИВ
• После согласной не стоит согласная → БА или БИ или ВА или ВИ
• Последняя не А и не В → ...Б или ...И
Варианты:
1] БВИ → После согласной стоит согласная, не подходит
2] АВИ → Начинается с гласной, не подходит
3] БАВ → Заканчивается на В, не подходит
4] БИБ → Удовлетворяет всем условиям
ответ: 4

Var
i,x:integer;
m:array[10..20] of integer;
begin
randomize;
for i:=10 to 20 do m[i]:=random(11)+10;
for i:=10 to 20 do write(m[i],' ');
writeln;
x:=m[10];
m[10]:=m[20];
m[20]:=x;
for i:=10 to 20 do write(m[i],' ');
writeln;
end.

2)

var
max,min,i,x:integer;
m:array[10..20] of integer;
begin
min:=10;
max:=10;
randomize;
for i:=10 to 20 do m[i]:=random(100)+1;
for i:=10 to 20 do write(m[i],' ');
writeln;
for i:=10 to 20 do begin if m[i]<m[min] then min:=i;
if m[i]>m[max] then max:=i;
end;
x:=m[min];
m[min]:=m[max];
m[max]:=x;
for i:=10 to 20 do write(m[i],' ');
writeln;
end.