Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2;
var x:=a/b;
var y:=x/b;
var z:=Ln(1+x*x)/((1+y*y)*(1+x*x));
Writeln(z)
end.
<u>Результат</u>
0.5 0.5
0.0693147180559945
1 0.8
0.106704348687099
3 1
0.0230258509299405
Если это шифр замены, то главное - первые 2 буквы должны быть такие же,
как последние. Таких слов очень много: рапира, царица, калека, и так далее.
Так что по одному слову это решить невозможно.
Объём книги
600*36*64 = <span><span><span>
1382400</span> символов
При 1 байте на символ - </span></span><span><span><span>
1382400</span> байт
64 кб/с - это килобиты в секунду?
Тогда, при 8 битах в байте, надо передать
</span></span><span><span><span>
1382400</span>*8 = </span></span><span><span><span>
11059200</span> бит
за секунду передаётся 64*1024= </span></span><span><span><span>
65536</span> бит
а времени уйдёт
</span></span>11059200/65536 = <span><span><span>
168,75
</span>с</span></span>
Возможно, не уверен, цепь питания
