Пропускная скорость информации 12800бит/сек.текстовой файл был отправлен через этот канал за 40 сек.вычислите - id848864120210601 от мффки 01.06.2021 15:18

Question

Информатика: Пропускная скорость информации 12800бит/сек.текстовой файл был отправлен через этот канал за 40 сек.вычислите объем отправленной информации.

мффки · Accepted Answer

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('n=');
WriteAllText('MyFile.txt',SeqRandom(n,-99,99).JoinIntoString);
var (mn,mx):=(MaxInt,-MaxInt);
foreach var line in ReadLines('MyFile.txt') do begin
    var a:=line.ToIntegers;
    (mn,mx):=(Min(a.Min,mn),Max(a.Max,mx))
    end;
Writeln('Cумма min+max = ',mn,'+',mx,' = ',mn+mx);
ReadAllText('MyFile.txt').Println // контрольный вывод файла
end.

Пример
n= 20
Cумма min+max = -99+71 = -28
62 -72 39 -93 -99 -46 -77 71 -12 13 -89 18 -17 19 -35 -62 30 17 -74 37

Пропускная скорость информации 12800бит/сек.текстовой файл был отправлен через этот канал за 40 сек.вычислите объем отправленной информации.

MOGZ ответил