3 + 2*8 + 1*8^2 = 3 + 16 + 64 = 83
Программы для PascalABC.Net
Для древних турбопаскалей требуется добавить две строки: первым оператором поставить
Uses Crt;
а предпоследним
Readkey;
var
i, n, s: integer;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + i;
Writeln('Сумма 1+2+...+', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 10
Сумма 1+2+...+10 = 55
var
i, n: integer;
s:real;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + 1/i;
Writeln('Сумма 1+1/2+...+1/', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 8
Сумма 1+1/2+...+1/8 = 2.71785714285714
Возможны следующие варианты расположения кладов:
1 2 3 4
К К - -
К - К -
К - - К
- К К -
- К - К
- - К К
Всего 6 возможных вариантов.
Необходимое количество бит для кодирования = log(2)6 ≈ 2,58 ≈ 3 бита
1) 8 бит это весит обычно 1 символ
2) 70*8*30*5=8400 бит