Const
n = 10;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
begin
Randomize;
Writeln('Исходная матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
for i:=1 to n do a[i,i]:=0;
Writeln('Результирующая матрица');
for i := 1 to n do
begin
for j := 1 to n do Write(a[i, j]:4);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходная матрица
-19 15 42 44 32 41 -11 -21 14 -29
33 -8 -21 -33 -38 28 21 43 39 -46
-1 33 13 23 -38 32 -25 -26 43 41
7 6 39 14 48 37 -3 -3 -2 -41
-26 40 -38 -24 16 43 -17 3 7 7
37 20 17 44 28 -2 -49 -32 32 -50
16 -35 -14 23 14 -23 3 15 -31 -24
-19 -26 -5 30 30 9 20 -13 -43 -30
-2 22 17 -15 -46 38 39 46 37 -1
36 -22 15 -2 -7 -41 3 -10 12 -12
Результирующая матрица
0 15 42 44 32 41 -11 -21 14 -29
33 0 -21 -33 -38 28 21 43 39 -46
-1 33 0 23 -38 32 -25 -26 43 41
7 6 39 0 48 37 -3 -3 -2 -41
-26 40 -38 -24 0 43 -17 3 7 7
37 20 17 44 28 0 -49 -32 32 -50
16 -35 -14 23 14 -23 0 15 -31 -24
-19 -26 -5 30 30 9 20 0 -43 -30
-2 22 17 -15 -46 38 39 46 0 -1
36 -22 15 -2 -7 -41 3 -10 12 0
1 или 3 не могу понять в этом есть подвох ну я склоняюсь к 1
Задача: из 6 палок сделать 4 треугольника
1. А = 110011
А2 в А10 (из двоичной в десятичную)
110011 = 1∙25+1∙24+0∙23+0∙22+1∙21+1∙20 = 32+16+0+0+2+1 = 51
110011 = 51
А10 В А8 (из десятичной в восьмеричную)
51:8=6 (3 в остатке)
51 = 63
2.
ОСНОВАНИЯ 2: 11111, 11000010;
ОСНОВАНИЯ 8: 37, 302;
ОСНОВАНИЯ 10: 31, 194;
ОСНОВАНИЯ 16: 1F, C2;
3. Переведем эти два числа в десятичную систему.
111011101 = 477
101110111 = 375
Ответ. Нет, они не равны.
4. 010, 100, 111, 1001, 1101, 10001, 100001, 110000
Var b,i,k,n: int64;
begin
readln(n);
b:=1;
for i := 1 to n do
b:=b*i;
writeln(b);
end.
Входные данные подставлять в переменную n