2) import math
a = int(input())result = 1sqrt = 0
for i in range(a, a+6): result *= i sqrt += 1 result = math.pow(result, 1/sqrt)print ("result :", result)
Ну? Понятно, 16 рядов, 32 места в каждом... продали ОДИН БИЛЕТ В ВОСЬМОМ РЯДУ, номер 8 ... и что ??? Какой вопрос задачи?;)
<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var X := ArrRandom(ReadInteger('A='), -21, 21);
X.Println;
X.Sorted.Println;
X.Where(t -> t.IsOdd).OrderDescending.Println
end.
<h3>A= 18</h3><h3>9 9 -10 21 -11 -13 -2 19 5 20 -5 20 11 -6 -2 -10 14 -12</h3><h3>-13 -12 -11 -10 -10 -6 -5 -2 -2 5 9 9 11 14 19 20 20 21</h3><h3>21 19 11 9 9 5 -5 -11 -13</h3>
Язык какой?
...............................
Var a,b,x,y:integer;
begin
writeln('Введите числа :');
readln(a,b);
x:=sqr(a+b);
y:=sqr(a)+sqr(b);
writeln('Квадрат суммы = ',x);
writeln('Cуммы квадратов = ',y);
<span>end.</span>