Скорость передачи данных через adsl-соединение равна 128000 бит/c. через данное соединение файл размером 625 кбайт. определите время передачи файла в секундах. надо оформить: дано, найти, решение.

25кбайт = 625*1024 байт = 640000 байт 625кбайт = 625*1000 байт = 625000 байт потому 2 возможных решения: 640000 байт = 640000*8 = 5120000 бит 625000 байт = 625000*8 = 5000000 бит скорость = объем бит / время отсюда время = объем бит / скорость 5120000 бит / 128000 бит/c = 5120000 / 128000 = 40 c 5000000 бит / 128000 бит/c = 5000000 / 128000 = 39,0625 c думаю правильней 40 с, так как килоба́йт (кб, кбайт [1]) — единица измерения количества информации, равная 1024 байтам. действующий гост [1] указывает на такое определение килобайта как на некорректное, но сложившееся. но! кто его знает, может вам уже по новой методике   так что вспомните была написано "кбайт" или "кбайт" я бы выбрал 40, так как в свое время нас учили именно так

№1 var a, b, c: integer; begin read(a, b, c); if((a = b) or (b = c) or (c = a)) then write('треугольник равнобедренный') else  write('треугольник неравнобедренный'); end. блоксхема: начало ввод сторон(a, b, c) если a = b или b = c или с = a, то вывести: 'треугольник равнобедренный' иначе вывести: 'треугольник неравнобедренный' конец №2 var n, s, i: integer; begin s : = 0; read(n); for i : = 20 to n do begin if (i mod 2 < > 0) then s : = s + i; end; write(s); end. блоксхема: начало s : = 0, i  : = 20 ввод числа n пока i не равно n     если i - нечётное, то       прибавить к s вывести  s конец

uses crt;

const raz=[' ','.',',','?','!'];{/разделители слов, можно добавить}

var s,sl:string;

   i,k:byte;

begin

clrscr;

writeln('Строка:');

readln(s);

writeln('Слово:');

readln(sl);

k:=0;

for i:=1 to length(s) do{идем по строке}

if(s[i]=sl[1])and((s[i-1] in raz)or(i=1)){если символ равен первому символу слова

а перед ним разделитель или начало строки}

and((s[i+length(sl)] in raz)or(i+length(sl)=length(s))){и после слова разделитетль или конец строки}

and(copy(s,i,length(sl))=sl){и все буквы на интервале равны слову}

then k:=k+1;{считаем}

write('Слово ',sl,' встречается ',k,' рз.');

readln

end.

Объяснение:

на каком языке? (В ответе паскаль)