Var
a: array [4..9] of longint;
q:longint;
begin
for q:=4 to 9 do
begin
a[q]:=random(10)+1;
write(a[q],' ');
end;
writeln();
for q:=4 to 9 do
begin
if a[q]<5 then a[q]:=a[q]-1;
write(a[q],' ');
end;
end.<span>
</span>
Скорость передачи умножаем на время и делим на 16
4096*10=40960
406960/16=2560
Ответ: 2560
Я не много не поняла
Sori I m
Мышь, клава, микрофон, вебка, джойстик, сканер (если это он в нижнем правом углу)
var
y,n:integer;
x:real;
begin
n:=1;
write('x= ');
readln(x);
write('y= ');
readln(y);
while x < y do <em>begin</em>
inc(n);
x:=x*1.1;
<em>end;</em>
writeln(n);
<span>end.</span>