Var a,b: array[0..19] of Integer;
i: Integer;
begin
for i:=0 to 19 do
begin
a[i]:=random(5)+1;
b[i]:=random(5)+1;
end;
for i:=0 to 19 do
begin
if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]);
end;
end.
Размер файла = 5120*24 бит.
Скорость второго соединения = (размер файла)/(15сек) =
= (5120*24 бит)/(15 сек.) = 512*10*8*3/(5*3) (бит/сек.) =
= (512*2*8) бит/сек. = 8192 бит/сек.
Ответ. 8192.
DIM s AS STRING, s1 AS STRING, n AS INTEGER
DIM i AS INTEGER, c AS STRING * 1
INPUT "s=", s
s1 = ""
FOR i = 1 TO LEN(s)
c = MID$(s, i, 1)
IF c <> "*" THEN s1 = s1 + c + c
NEXT i
PRINT s1
END
<em><u>Тестовое решение:</u></em>
s=12.4*1.45+sin(2*Pi*x)
1122..4411..4455++ssiinn((22PPiixx))
Чтобы продолжить, нажмите любую клавишу
Диапазон температур 28+36=64 градуса=2^6
т.е используется 6 бит
168*6=1344 бит = 168 байт
N= 2 в степени i
N = 16
i=?
4 бит