Файл размером 4000 кбайт передаётся через некоторое соединение в течение 1 минуты. определите размер - id845608820200105 от irina0208ga 05.01.2020 14:19

Question

Информатика: Файл размером 4000 кбайт передаётся через некоторое соединение в течение 1 минуты. определите размер файла (в кбайт), который можно передать через это соединение за 45 секунд. в ответе укажите одно число — размер файла в кбайт. единицы измерения писать не нужно.

irina0208ga · Accepted Answer

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 begin   var a:=MatrixRandom(7,7,0,9);   var k:=0;   for var i:=0 to 6 do begin     for var j:=0 to 6 do begin       Write(a[i,j]:3);       if a[i,j] in [1..5] then Inc(k)       end;     Writeln     end;   Writeln( Кол-во элементов на [1,5]: ,k) end. Тестовое решение:   2  1  7  3  3  2  7   9  2  9  2  0  5  5   4  2  6  9  4  6  0   1  0  3  5  4  5  9   6  3  6  0  2  0  8   0  8  4  3  2  1  8   6  0  4  4  5  4  0 Кол-во элементов на [1,5]: 27...

MOGZ ответил