Const n=10; var a:array[1..n] of integer; p,i:integer; begin writeln('vvedite massiv='); for i := 1 to n do readln(a[i]); p:=1; for i := 1 to n do if i mod 2=0 then p:=p*a[i]; writeln('p=',p); readln; end.
Нам абсоютно безразлично что именно будет передаваться по каналу связи, главное какой объем. Итак у нас объем 100 килобайт.Переведем в байты:100 килобайт * 1024 байт в килобайте = 102400 байт.Переведем в биты:102400 * 8 бит в байте = 819200 бит. Найдем теперь пропускную скорость канала в битах в секундупоучебникам в 1 килобите чаще 1024 бита100 мбитсек = 1024*100 килобит в секунду = 1024*1024*100 бит в секунду = 104857600 бит в секунду. Разделим:819200/104857600 = 0.0078125 секундответ: 0.0078125 секунд
Uses Crt; const n=300; type V=array[1..n,1..3] of 0..5; function Cnt4(var a:V):integer; { Количество учеников со средним выше 4 } var i,j,k:integer; sb:real; begin k:=0; for i:=1 to n do begin sb:=0; for j:=1 to 3 do sb:=sb+a[i,j]; sB:=sb/3; if sb>4 then Inc(k); end; Cnt4:=k end;
var i,j:integer; M:V; begin ClrScr; Writeln('Для каждого ученика вводите через пробел три его оценки'); for i:=1 to n do begin Write(i,': '); for j:=1 to 3 do Read(M[i,j]) end; Write('Количество учеников со средним выше 4: '); Writeln(Cnt4(M),' '); ReadKey end.
var a:array[1..n] of integer;
p,i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
p:=1;
for i := 1 to n do
if i mod 2=0 then p:=p*a[i];
writeln('p=',p);
readln;
end.