(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 46 c
v = 256000 бит/с
I - ?
Решение:
бит
11776000.0 бит = 1472000.0 байт = 1437.5 Кбайт
1) 15 (A-B-F-Z)
2) 17 (A-B-D-E-F-Z или A-B-D-E-G-Z)
3) 15 (A-B-F-Z)
Var a:array[1..40] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then
s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger('N=');
SeqGen(N, 11, t -> t + 11).Aggregate(BigInteger(1), (i, j)-> i * j).Println
end.
<h3>N= 21</h3><h3>378085741958289664546285217171284131840000</h3>
Ботинки схожи с друг другом больше не зНАЮ!!!!!!!
