1. передачи данных через adsl-соединение заняла 8 минуты. за это время был передан файл, размер которого 23 750 кбайт. определите минимальную скорость (бит/c), при которой такая передача возможна.
Var a:array[1..100] of integer; //объявляем целочис. массив из 100 элементов i,j,c,k,n:integer; //целочислительные переменные f:boolean;// логические переменные begin // начало программы writeln('vvedite razmer massiva'); //выводим текст readln(n); //вводим переменную n writeln('vvedite el-ty massiva'); //выводим текст for i:=1 to n do //повторить n раз begin write('a[',i,'] = ');readln(a[i]);end; {отвратный кодстайл. В данном цикле заполняем массив n количеством элементов. Как будто нельзя было объявить динамический массив} writeln('massiv'); //вывод текста for i:=1 to n do write(a[i]:4); //выводим n элементов массива writeln; //сносим строчку k:=2; //k=2 while k<=n do //пока k меньше или равно n выполнять begin //начало тела цикла c:=a[k]; //с=a[k] i:=1; //i=1 if c while f do //ОШИБКА, странное сочетание логического оператора и цикла с предусловием begin //начало тела вложенного цикла, объявленного ошибочно a[k-i+1]:=a[k-i]; {элементу массива a, индекс которого равен k-i+1 присваивается элемент массива a, индекс которого равен k-i, по сути, это просто сдвих массива на один элемент} i:=i+1; //увеличение i на 1 f:=false; //f=ложь if i if c end; //ОШИБКА, совсем упоротое сочетание условных операторов a[k-i+1]:=c; {элементу массива a, индекс которого равен k-i+1 присваивается c} k:=k+1; //k увеличивается на 1 { //комментарий как у меня for i:=1 to n do write(a[i]:4); //снова вывод от 1 до n элементов массива writeln; //сноска строки } end; //выход из вложенного цикла //нет выхода из основного цикла //нет завершения программы //Абсолютно нерабочий код //Сожгите автора как ведьму
Program n; var m: array[1..12] of integer; i,k: integer; begin randomize; k:=0; for i:=1 to 12 do begin m[i]:=random(41)+150; write(m[i],' '); if m[i]>180 then k:=k+1; end; writeln; if k>0 then writeln('Такой ученик есть) else writeln('Такого ученика нет'); end.
program n; var m: array[1..12] of integer; i,k: integer; begin randomize; k:=0; for i:=1 to 12 do begin m[i]:=random(41)+150; write(m[i],' '); if m[i]<160 then k:=k+1; end; writeln; if k>0 then writeln(k,' ученик(ов/а) имеют рост меньше 160') else writeln('Учеников, рост которых меньше 160, нет'); end.
8 мин = 8*60 сек
Скорость = 23750*1024*8/(8*60) = 2375*1024/6 ≈ 405334 бит/с