Uses crt;
const
n=50;
var
a:array[1..n] of integer;
i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=150+random(50);
if a[i]>=170 then s:=s+1
end;
writeln(s);
end.
Ответ Б, так как в двоичной системе счисления только 0 и 1
A)
var
ch1,ch2:char;
begin
readln(ch1,ch2);
writeln(ch1,'=',integer(ch1));
writeln(ch2,'=',integer(ch2));
end.
б)
var
a,b,c:char;
begin
readln(a,b,c);
writeln('Результат сцепления:',a+b+c);
end.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('Сумма первых пяти минимальных ',a.Sorted.Take(5).Sum)
end.
<u><em>Тестовое решение</em></u>
n= 15
63 53 44 40 29 47 56 55 58 73 56 42 62 95 84
Сумма первых пяти минимальных 202
Давай разбираться. Если бы квартира в доме была 1 = 2^0, то информация, что Вася живет в этой квартире, имела бы 0 информации.
Потому что, если мы заранее знаем, что Вася живет в этом доме, то сразу ясно, что в этой единственной квартире.
Дополнительное сообщение об этом не несет никакой информации вообще.
Если квартир 2 = 2^1, то сообщение несет 1 бит информации. 1 квартира = 0, 2 квартира = 1.
Если квартир 3, 2<3<4, то есть 2^1<3<2^2, то будет 2 бита. 1кв = 00, 2кв = 01, 3кв = 10. Одного бита не хватает.
И так далее. Сколько квартир в доме (в смысле - 2 в какой степени), столько бит и будет.
128 < 150 < 256, то есть 2^7 < 150 < 2^8, поэтому уточнение номера квартиры дает 8 бит информации.
