36.информационный объём одного сообщения составляет 1 кбайт, а другого –256 бит. сколько байт информации содержат эти два сообщения вместе? в ответе укажите одно число.

запишем условие: I1=1Кб, I2=256 бит, Iоб=?

решение: выразим I1 в битах: I1=1*1024*8=8192бит

найдем общий информационный объем

Iоб=8192+256=8448 бит

Одна из греческих легенд рассказывает о том, как появились на Земле первые тополя. У бога Солнца Гелиоса подрастало от Климены — дочери морской богини Фетиды — вспыльчивое и неугомонное чадо, сын Фаэтон. Один из родственников, насмехаясь над юношей, с казал, что он, мол, сын не божественного Гелиоса, а простого смертного. Побагровев от гнева, Фаэтон бросился к отцу и попросил в доказательство того, что он действительно сын богов, разрешить ему прокатиться в отцовской колеснице по небу. Гелиос ужаснулс я дерзкой затее и, пытаясь образумить юношу, стал ссылаться на то, что сам Зевс не мог справиться с упряжкой. Фаэтон заупрямился. Сметая все на своем пути, кони понесли его с небесного свода на Землю. «О Зевс! — всполошилась богиня Земли. — Не дай погибн уть всему живому!» Зевс бросил молнию в колесницу и разбил ее, а Фаэтон упал и утонул в волнах реки. Гелиос так скорбел о погибшем сыне, что в тот день вовсе не светило солнце. Не менее отца скорбели, стоя над рекой, его многочисленные сестры — Гелиады. Сжалились, глядя на девушек, боги и, чтобы избавить их от страданий, превратили всех в стройные, священные для греков деревья. Священным тополь считался также у римлян и еще у некоторых народов Азии и Востока.

1.var
a, c, b: array[1..10] of integer;
i: integer;

begin
randomize;
for i := 1 to 10 do begin a[i] := random(1000);b[i] := random(1000); end;
for i := 1 to 10 do write(a[i], ' ');
for i := 1 to 10 do write(b[i], ' ');
for i := 1 to 10 do c[i] := a[i] + b[i];
for i := 1 to 10 do write(c[i], ' ');
end.

2.

var
a, c, b: array[1..10] of integer;
i: integer;
function min(a,b:integer):integer;
begin
if a>b then min:=b else min:=a;
end;
begin
randomize;
for i := 1 to 10 do begin a[i] := random(1000);b[i] := random(1000); end;
for i := 1 to 10 do write(a[i], ' ');
for i := 1 to 10 do write(b[i], ' ');
for i := 1 to 10 do c[i] := min(a[i],b[i]);
for i := 1 to 10 do write(c[i], ' ');
end.