Program asd;
Const n=5;
m=4;
Var i,j,p:integer;
A:array[1..n,1..m] of integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:3);
end;
Writeln;
end;
P:=1;
For i:=1 to n do
For j:=1 to m do
begin
if A[i,j]<>0 then p:=p*A[i,j];
end;
Writeln('Произведение ненулевых элементов массива: ',p);
<span>END.</span>
Var a,b,x:integer;
begin
writeln('введите число x:');
readln(x);
writeln('введите интервал от a до b:');
readln(a,b);
if (x>=a) and (x<=b) then writeln('x принадлежит данному интервалу') else
writeln('x не принадлежит данному интервалу');
readln;
end.
Дано:
v1=2^18 бит/c - скорость получения 1024 Кбайт Машей за t1 секунд
v2=2^12 бит/с - скорость получения 12 Mбайт Андреем за t2 секунд
Найти: t=t1+t2
Решение:
1024 Кбайт =2^10 *2^13 бит = 2^23 бит
t1= 2^23 :2^18 =2^5 секунд
12 Мбайт = 12*2^23 бит =3*2^25 бит
t2=3*2^25 : 2^12 =3*2^13 секунд
t=t1+t2= 2^5+3*2^13=2^5*(1+3*2^8) =32*769=24608 секунд