Дано натуральное число n. определить, верно ли, что квадрат значения n равен кубу суммы цифр числа n (операции над строками не использовать). pascal

Var n,s,x: integer;   begin  s: =0;   writeln('введите число');   readln(n);   x: =n;   while x< > 0 do  begin  s: =s+(x mod 10); x: =x div 10;   end;   if sqr(n)=power(s,3) then writeln('верно')      else writeln('неверно');   end.

i = log₂ (1/p)

log₂ (1/p) = 4

1/p = 2⁴

1/p = 16

p = 1/16 вероятность появления автобуса n1

вероятность появления автобуса n2: р = 1/16 : 2 = 1/32

i = log₂ (1/1/32) = log₂ 32

i = 5 бит

5 бит информации несет сообщение о появлении автобуса n2.

256= 2^i=2^8следовательно i=8 битов

8*80*32=20480 битов

20480*2=40960 битов=5120 байт=5 килобайт

 

^ - это я так обозначила степень

i - количество информации(обычно обозначается большой буквой)

* - умножить