Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
Информацию кодируют для ее более удобного переноса приемнику информации.
Как сделать - что? перевести в двоичную сис-му счисления, или куда-то в другую?
46А (16)=1001010 (2)=112(8)
155(8)=6D (16)=1101101(2)
Текстовая (несмотря на то, что тут только дата и два числа) и графическая.
Ответ:
42
Объяснение:
2A(16)= 2* 16 + 10=42(10)
44(8) = 4*8 + 8 = 40(10)
100111(2) = 32+4+2+1=39(10)