Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
Сначала нужно определить количество бит, которое требуется для сохранения одного номера. Всего 220 уникальных номеров. Количество бит вычисляется по формуле 2^n = k, где n - биты, а k - варианты, которые этими битами можно закодировать.
7 бит недостаточно для хранения 220 номеров, т.к. 2^7 = 128
8 бит достаточно, т.к. 2^8 = 256. То есть на одного спортсмена выделяется 8 бит, или 1 байт.
Всего участвовало 100 спортсменов, 100*1байт = 100байт
Почему бы самому не воспользоваться калькулятором?
раздел программист
BIN
10111+101 = 1 1100
110011+1110 = 100 0001
1111(умножить)11 = 10 1101
100011-110 = 1 1101
1011(умножить)101 = 11 0111
101100-101 = 10 0111
а вообще-то интересно самому прочитать разок внимательно как выстроен двоичный код,
легко и интересно, да и быстро будет в уме расписывать решения; самому человеку станет приятен процесс получения правильных решений (увлекательно)
+ гимнастика для нейронных связей мозга/память/сообразительность/логика...
1.
const n=5;
var
a: array[1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i], ' ');
end.
2.
const n=10;
var
a: array[1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if i mod 3 = 0 then
write(a[i], ' ');
end.