Решите уравнение 30(10)+24x=52(8) ИНФОРМАТИКА

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

скор передачи=объём файла/время,отсюда  объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт

var a: array[1..100] of integer;

s,i: integer ;

sr: real;

begin

  {vvod massiva a}

    for i: = 1 to 100 do

        sr: =sr+a[i];

    sr: = sr/100;

    for i: = 1 to 100 do

        if a[i]> sr then

          s: =s+1;

    writeln(s);

end.

переведем 128000бит в кбайты для удобства: 128000бит=128000/8 байт( т.к. в одном байте 8 бит)=16000 байт=16000/1024 кбайт (т.к. в одном кбайте 1024 байт)=15,625 кбайт, следовательно скорость передачи данных равна 15,625 кбайт/с

500кбайт/15,625 кбайт/с=32 секунды займет передача файла

ответ: 32 секунды