Системы счисления Презентация. Содержание презентации Что можно назвать системой счисления? Как изображали числа? Что лежит в основе правил арифметики.
Мульти
N=17
Формула Хартли
i=log(N)/log(2)=
<span><span>
4,087 бит на символ
и количество информации в сообщении
V = 100i = </span></span><span>408,7 бит
Пульти
</span><span>N=32
Формула Хартли
i=log(N)/log(2)=
5<span><span> бит на символ
и количество информации в сообщении
V = 50i = 250</span></span><span> бит
-----------------
У Мульти в сообщении больше информации.
</span></span>
Program Task;
Var a, b, c: Integer;
Begin
Write('a = ');
ReadLn(a);
If (a < 10) Or (a > 99) Then
WriteLn('Число не двузначное')
Else
Begin
b := a Div 10;
c := a - (b * 10);
If b > c Then
WriteLn('Первая цифра')
Else if b < c Then
WriteLn('Вторая цифра')
Else
WriteLn('Равны')
End;
ReadLn;
End.
На паскале, если не на паскале нужно, то укажите какой необходим.
const m = 5;
n = 4;
var i, j, max: integer;
a: array[1..m, 1..n] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to m do begin
for j := 1 to n do begin
a[i, j] := random(20);
write(a[i, j]:3);
if(a[i, j] > max) then max := a[i, j];
end;
writeln;
end;
writeln('Максимальный элемента: ', max);
writeln('Конечный массив: ');
for i := 1 to m do begin
for j := 1 to n do begin
if(a[i, j] mod 2 = 0) then a[i, j] := max;
write(a[i, j]:3);
end;
writeln;
end;
end.