Ответ:
в качестве аргумента sep в метод print передаётся строка/символ, который служит разделителем в выходной строке между выводимыми на экран значениями. sep сокр. Separator - разделитель. В данном случае в качестве символа-разделителя передаётся пробел
Объяснение:
<span>1) Сообщение в кодировке ASCII : </span>
01010011
01001111 01000110 01010100
Декодированное
сообщение:
SOFT
<span>
2) Сообщение в кодировке КОИ-8 : </span>
11110000
11000001 11010000 11001011 11000001
Декодированное
<span>сообщение:
</span>
Папка
Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при помощи случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.
N=2 в степени веса символа.
N=2*2*2*2*2*2*2
N=128(Мощность алфавита).
Program p1;
var i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
read(a[i]);
end;
for i:=1 to 10 do
if (a[i] mod 3)=0 then writeln('Число: ',a[i]);
<span>end.</span>