2 Мартышки = 10 кг
Мартышка = 5 кг
Мартышка + 1 кг = 3 Капуцины
5+1кг = 3 Капуцины
Капуцина = 2 кг
Капуцина+Мартышка = Гиббон
5+2 = Гиббон
Гиббон = 7 кг
Мартышка + 3 Гиббона = Павиан + Капуцина
5кг+3×7=Павиан + 2 кг
26кг=Павиан + 2 кг
24кг= Павиан.
Отсюда:
Мартышка = 5 кг.
Капуцина = 2 кг.
Гиббон = 7 кг.
Павиан = 24 кг.
<span>{$R+,S+,Q+}</span> uses SysUtils; <span>const R=1000;</span><span>type Mas= array [0..R] of integer;</span>var a: Mas; en,n: integer; x,y,z,q,w: char;<span>function push(n: integer): string;</span>begin<span> a[en]:=n;</span><span> en:=en+1;</span> push:='ok';end;<span>function pop(): integer;</span>begin<span> en:=en-1;</span><span> pop:=a[en];</span><span> a[en]:=0;</span>end;<span>function back(): integer;</span>begin<span> back:=a[en-1];</span>end;<span>function size(): integer;</span>begin size:=en;end;<span>function clear(): string;</span>begin<span> en:=0;</span> clear:='ok';end;<span>function exit(): string;</span>begin exit:='bye';end;begin<span> en:=0;</span> repeat<span> read(x);</span> if x='p' then begin<span> read(y);</span> if y='u' then begin<span> read(z,q,w);</span><span> readln(n);</span><span> writeln(push(n))</span> end else begin<span> readln(z);</span><span> writeln(pop());</span> end; end; if x='b' then begin<span> readln(y,z,q);</span><span> writeln(back());</span> end; if x='s' then begin<span> readln(y,z,q);</span><span> writeln(size());</span> end; if x='c' then begin<span> readln(y,z,q,w);</span><span> writeln(clear());</span> end; if x='e' then begin<span> readln(y,z,q);</span><span> writeln(exit());</span> end; until x='e';<span>end.</span>
Закон взлома системы Pentagon в Америке карается 10 и более срок наказания!
1. символ алфавита занимает
бит, значит объем (информационный) текста равен 150*6=900 бит
2. 400/100 бит на символ = 4 бита на символ. Всего различных символов
. ответ 16
DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
<span>IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P</span>
