Катет + катет = гипотенуза
Const
N = 3;
Var
A:array[1..N,1..N] of integer;
i,j:integer;
P:real;
Begin
Randomize;
WriteLn('Исходная матрица A(',N,',',N,'):');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
P:=1;
For i:= 1 to N do
P:=P*A[i,N-i+1];
WriteLn('Произведение элементов побочной диагонали: ',P);
End.
Примеры работы программы:
Исходная матрица A(3,3):
-6 5 0
-1 -3 -1
-2 -4 -3
Произведение элементов побочной диагонали: 0
Исходная матрица A(3,3):
-7 -6 -10
-3 8 10
4 0 -10
Произведение элементов побочной диагонали: -320
N=2^i где n-мощность алфавита, 2-основание(сколькими символами кодируется символ), i-разрядность(длина числовой строки). <u>Чтобы узнать, достаточно ли мощности алфавита для кодирования, нужно сравнить данную мощность с количеством букв в алфавите.</u>Пример на русском: n-32, а количество наших букв равно 33. Следовательно, нужно взять большую разрядность - не 5, а 6. Тогда мы получаем n-64, чего хватает не только на обозначение букв, но и для знаков препинания. Если вы имели в виду код ASCII, то прогоните по выделенному алгоритму.
<span>Задание 1:
s = input("Введите первое слово: ")
s1 = input("Введите второе слово: ")
print(s + ", " + s1)
Задание 2:
a = int(input("Введите число a "))
b = int(input("Введите число b "))
x = int(input("Введите число x "))
if a < x < b:
print(True)
else: print(False)</span>