72.111.109.101.вот. Есть ещё задания
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (m,n):=(7,5);
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Cols.Select(col->col.Min).ToArray; b.Println;
var fn:='Результат задачи 1.1.txt';
var f:Text;
Assign(f,fn); Rewrite(f);
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do Write(f,a[i,j]:4);
Writeln(f)
end;
for var i:=0 to n-1 do Write(f,b[i]:4);
Writeln(f);
f.Close
end.
1. Если алфавит содержит 64 символа, то его символы можно закодировать числами от 0 до 63. В двоичном коде для представления чисел такого диапазона потребуется 6 бит
Ответ: потребуется код разрядности шесть бит.
2. Пятиразрядный двоичный код позволяет закодировать символа с кодами от 0 до 31.
Ответ: пятиразрядного кода будет недостаточно.
3. Каждую лампочку можно представить битом. Выключенной лампочке соответствует нулевое значение бита, включенной - единичное.
Для передачи 15 различных сигналов потребуется четыре лампочки, поскольку , т.е. 4 лампочки способны передавать до 16 сигналов. Трех лампочек будет недостаточно: они могут передать не больше сигналов.
Ответ: потребуется четыре лампочки.
//0) Мы хотим найти сумму цифр четырёхзначного числа x.
//1) Сохраним первую цифру числа x:
int a = x / 1000;
//2) Сохраним вторую цифру числа x:
int b = (x / 100) % 10;
//3) Сохраним третью цифру числа x:
int c = (x / 10) % 10;
//4) Сохраним четвёртую цифру числа x:
int d = x % 10;
// Ответ: a+b+c+d
int ans = a + b + c + d;
Const
K = 3;
N = 4;
Var
A:array[1..K,1..N] of integer;
Max,Min,i,j:integer;
Begin
For i:= 1 to K do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
Max:=A[K,N];
Min:=A[K,N];
For i:= 1 to K do
For j:= 1 to N do
Begin
if Max<A[i,j] then Max:=A[i,j];
if Min>A[i,j] then Min:=A[i,j]
End;
WriteLn('Min = ',Min);
WriteLn('Max = ',Max);
End.
Пример:
-3 -2 5 -8
2 -3 7 5
-10 -2 7 4
Min = -10
Max = 7