// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
<span>А. Организация работы пользователя в сети интернет.</span>
На языке pascal ABC .NET:
var k:integer;
Begin
k:=1;
for var i:=1 to 9 do
if (i mod 2)=0 then else k:=k*i;
write(k);
end.
Время t=F/v скорость v=F/t файл F=t*v
файл F=4096 байт =4*1024*8 бит=2^15 бит
v=512 бит/с =2^9 бит/с
t-?
t=2^15 : 2^9=2^6 c=64 c
v=2048 бит/с =2^11 бит/с
t=2^6 c
F=2^11*2^6=2^17 бит =2^4 Кбайта = 16 Кбайт
ответ 16
К = 0, 1 *3 = 3, 3>10 нет
к = 1, 2 * 3 = 6, 6>10 нет
к = 3, 3 * 3 = 9, 9>10 нет
к = 4, 4 *3 12, 12>10 да
Ответ: к = 4.