Решите задачу. Максимальная скорость передачи данных в локальной сети 10 Мбит/с. Сколько страниц текста можно передать за 1 сек, если 1 страница текста содержит 42 строки и на каждой строке - 70 символов?
program fofgogjoj; const nmax=100; var m:array[1..nmax] of integer; n,i,j,k:byte; a,b,x:integer; begin randomize; repeat Write('Размер массива до ',nmax div 3,' n='); readln(n); until n in [1..nmax div 3]; Writeln('Исходный массив:'); for i:=1 to n do begin m[i]:=random(50); Write(m[i],' '); end; Writeln; Writeln; Write('Введите число для вставки перед a='); Readln(a); i:=1; k:=0; while i<=n do begin if m[i]>a then begin n:=n+1; k:=1; for j:=n downto i+1 do m[j]:=m[j-1]; m[i]:=a; i:=i+2; end else i:=i+1; end; if k=0 then Writeln('Элементов больше ',a,' нет') else begin Writeln('Массив после вставки числа ',a,' перед большими ',a); for i:=1 to n do Write(m[i],' '); Writeln; Writeln; Write('Введите число для вставки после b='); Readln(b); i:=1;k:=0; while i<=n do if m[i]<b then begin n:=n+1; k:=1; for j:=n downto i+2 do m[j]:=m[j-1]; m[i+1]:=b; i:=i+2; end else i:=i+1; if k=0 then Writeln('Элементов меньше ',b,' нет') else begin Writeln('Массив после вставки числа ',b,' после меньших ',b); for i:=1 to n do Write(m[i],' '); end; end; readln end.
Пусть а - число правильных ответов, с - число неправильных ответов. тогда число вопросов, на которые ответы даны не были - 25-а-с 5*а-9*с=40 с у нас больше либо равно 1, тогда делаем методом подстановки, не забывая, что а - обязательно целое число. с=1 5а-9=40, 5а=49, а - число не целое, значит, не подходит. с=2 5а-18=40, 5а=58, а - число не целое, значит, не подходит. с=3 5а-27=40, 5а=67, а - число не целое, значит, не подходит. с=4 5а-36=40, 5а=76, а - число не целое, значит, не подходит. с=5 5а-45=40, 5а=85, откуда а =17. ответ: 17.
hfhfjjjhhbb I am fine with me and I am fine with me and please let the morning I will have the visitors with providers with me on the