Нужно посчитать число вариантов, т.е. максимальное число человек которое может принять врач. Он может принимать в:
8:00, 8:30, 9:00, 9:30, 10:00, 10:30, 11:00, 11:30, 12:00, 12:30, 13:00, 13:30. Т.е. (14-8)*2 = 12 пациентов.
Петя записался на прием в 11:30 - это один(!) из возможных равновероятных вариантов, а значит несет информации:
бита
14 млн. Байтов 112млн. Битов или 14 тыс. Килобитов
С динамическим массивом:
<em>VAR</em>
<em> i: Integer;</em>
<em> a: Array of Char;</em>
<em>BEGIN</em>
<em> Assign(input, 'input.txt'); ReSet(input);</em>
<em></em>
<em> SetLength(a, 1);</em>
<em> While (not eoln(input)) do begin</em>
<em> SetLength(a, Length(a)+1);</em>
<em> Read(a[Length(a)-1]); End;</em>
<em></em>
<em> For i := 1 to Length(a)-1 do</em>
<em> If (not Odd(i)) then a[i] := '-';</em>
<em></em>
<em> For i := 1 to Length(a)-1 do Write(a[i]);</em>
<em>END.</em>
1 гигабайт( Гб)= 1024 Мбайта или 210 КБайт