===== PascalABC.NET =====
begin
var a := ArrRandomReal(20, 100, 200);
a.Println
end.
{общий член последовательности можно задать формулой Sn=((An-1)+(Bn-1))/(An-1) где A- числитель, В - знаменатель }
const n=10;
var A,B,C,i,k: integer;
begin
A:=1; B:=1;
{ вывод последовательности на экран }
for i:=2 to n do
begin
C:=A; A:=A+B; B:=C;
writeln(i,' -> ',A,'/',B);
end;
{ подсчет k - го члена }
k:=20; A:=1; B:=1;
for i:=2 to k do
begin
C:=A; A:=A+B; B:=C;
end;
writeln(k,' - ый элемент = ',A,'/',B);
<span>end.
</span>
Первый процессор формирует последовательности со скоростью 128 шт. * 4 байт = 512 байт/сек.
2 Мб это 2*1024*1024 = 2097152 байт
2097152 байт / 512 байт/сек = 4096 секунд, это 1 час, 8.27 минут
Округляем до 1 час 10 минут
А второй процессор генерирует последовательности со скоростью 256 шт./сек, из них 25% некорректных, но ни где не сказано, что он записывает на диск результаты.
КОЛИЧЕСТВО СИМВОЛОВ НА СТРАНИЦЕ:
128*48=128 *16*3 =2^11 *3
ИНФОРМАЦИОННЫЙ ОБЪЁМ СТРАНИЦЫ:
2^11 *3 *2 =2^12 *3 байт
720Кбайт =16*45*2^10 = 2^14 *45 БАЙТ -ВСЯ КНИГА
КОЛИЧЕСТВО СТРАНИЦ В КНИГЕ:
<span>(2^14*45) / (2^12*3) = 2^2 * 15 = 60 СТРАНИЦ</span>