Var
a, b: integer;
begin
b := 0;
a := 1;
repeat
b := b + 1;
a := a * 2;
until a = 1024;
writeln(b);
end.
<span>from random import randint
A = [randint (-100,101) for i in range(20)]
b = <span>0
</span>k = <span>0
</span>print(A)
for c in range(20):
if 0 > A[c]:
b=A[c]
k = c
b = b*b
v = A[0]
A[0] = b
A[k] = v
print(A)
</span>
1 - канарейка (шифр Атбаш)
2 - рейнсворт (шифр Виженера)
3 - болванщик (шифр Хилла)
4 - бармаглот (шифр Виженера)
1 вапрос атвет 1 2 вапрос 3 атвет 3 вапрос 1 атвет 4 атвет 1 атвет