Vb
dim matt() as integer
dim x,y as integer
x=5
y=5
redim matt(x,y)
randomize
for a as integer = 0 to x
for b as integer = 0 to y
matt(x,y)= (rnd()*88)+11
next
next
dim i,z as integer
do
matt(i,z)=0
i+=1
z+=1
loop until (i=x and z=y)
23456₁₀ = 101101110100000₂
Размер файла = 5120*24 бит.
Скорость второго соединения = (размер файла)/(15сек) =
= (5120*24 бит)/(15 сек.) = 512*10*8*3/(5*3) (бит/сек.) =
= (512*2*8) бит/сек. = 8192 бит/сек.
Ответ. 8192.
Var i : Integer;
Begin
For i:=100 to 999 do
If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.
Результат:
376 * 376 = 141376
625 * 625 = 390625
Любая выделеная часть текста