Реферат учащегося по информатике имеет объём 20Кбайт. Каждая страница реферата содержит 32 строки по - id1513484320220612 от Staer1188 12.06.2022 23:37

Question

Информатика: Реферат учащегося по информатике имеет объём 20Кбайт. Каждая страница реферата содержит 32 строки по 64 символа в строке, мощность алфавита 256.Сколько страниц в реферат?

Staer1188 · Accepted Answer

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию! Нулевой шаг: создание типизированного файла нужной структуры begin   var f:file of real;   Assign(f, MyReal.bin ); Rewrite(f);   loop 2 do begin     SeqRandomInteger(10,1,100).Select(t- t/10).ForEach(t- Write(f,t));     SeqRandomInteger(10,-100,-1).Select(t- t/10).ForEach(t- Write(f,t));     end;   f.Seek(0); // начало файла   var b:real;   while not Eof(f) do begin Read(f,b); Print(b) end;...

MOGZ ответил