Ответ: молоко в кувшине, лимонад в бутылке, квас в банке, вода в стакане.
<span>from random import randint
A = [randint (160, 181) for i in range(12)]
srznach = <span>0
</span>print(A)
for i in range (12):
srznach= srznach + A[i]
srznach = srznach/<span>12
</span>print(srznach)
for i in range (12):
if A[i] <srznach:
</span> <span> A[i] = A[i]/<span>2
</span></span><span> else:
</span> <span><span> </span>A[i] = A[i]*<span>2
</span>print(A)</span>
===== PascalABC.NET =====
function RS(a: array of integer): integer;
begin
var n := a.Length;
Result := a[0];
if n > 1 then
Result += RS(a[1:])
end;
begin
var n := ReadInteger('Число слагаемых:');
var a := ReadArrInteger('Вводите:', n);
RS(a).Println
end.
Так как всего было 12 символов и каждому символу соответствует одна из двух конкретных букв, то:
Всего вариантов расшифровки может быть 12^2 = 144
z10)
var A, B, C: integer;
begin
write('Введите A, B, C: '); readln(A, B, C);
writeln('Сумма = ', A + B + C);
writeln('Произведение = ', A * B * C);
end.
z11)
var a,s,v:integer;
begin
writeln('Введите длинну куба: ');
readln(a);
s:=6*a*a;
v:=a*a*a;
writeln('Объем = ', v);
writeln('Площадь боковой поверхности = ', s);
end.
z13)
var A, B, C: integer;
begin
A := 20; B := 13;
C := A;
A := B;
B := C;
writeln('A = ', A);
writeln('B = ', B);
end.
z14)
var A, B: integer;
begin
A := 20; B := 13;
A:=A+B;
B:=A-B;
A:=A-B;
writeln('A = ', A);
writeln('B = ', B);
end.