1) 16-4 степень 2 1 символ - 4 бита
2) 2 в степени 5 = 32 символа
3) 256 - 8 степень 2 1 символ - 8 бит 20*8=160 битов
4) 4*50=200 битов 5*60=300 битов Итого: 200+300=500 битов
5) 8*30*70=16800 битов
1) program _1;
var i, n: integer; sym:real;
begin
readln (n); p:=1;
for i:=2 to n do
p:=p*((i+1)/(i+2));
write(p:8:3);
end.
5) program _5;
var k, i: byte; s:real;
begin
readln(k);
for i:=1 to k do
s:=s+1/(i*i*i);
write(s:8:3);
end.
Ответ:
program HappyTicket;
uses
SysUtils;
var
n1, n2, m1, m2, i, c: Integer;
s: string;
begin
Write ('Введите два номера билета: ');
ReadLn (n1, n2);
if (n1 > 100000) and (n1 < 999999) and (n2 > 100000) and (n2 < 999999) then begin
c := 0;
for i := n1 to n2 do begin
s := IntToStr (i);
m1 := StrToInt (s [1]) + StrToInt (s [2]) + StrToInt (s [3]);
m2 := StrToInt (s [4]) + StrToInt (s [5]) + StrToInt (s [6]);
if m1 = m2 then begin
Write (s, ' '); // для проверки выводятся все билеты. после убрать
Inc (c);
end;
end;
WriteLn;
WriteLn ('Количество = ', c);
end else
WriteLn ('Номера не шестизначные');
ReadLn;
end.
Рисунок 2, так как в других схемах перевозок между станциями нет (например, CD)
110001- двоичный код числа 49,
поэтому ответ: 6