Var X = [1,2,3,4,5,6,7,8];
var Y = [1,2,2,3,3,4,4,4];
var A = [];
function f(i) {
var b;
for (var i2 = 0,a = 0; i2 < Y.length; i2++) {
if (Y[i2] == X[i]) {
a++;
}
if (a > 2) {
b=false;
break;
}
if (i2 == (Y.length - 1) && a == 2) {
b=true;
break;
}
b=false;
}
return b;
}
for (var i = 0,i2=0; i < X.length; i++) {
if (f(i)){
A[i2]= X[i];
i2++;
}
}
for (var i = 0; i < A.length; i++) {
alert(A[i]);
}
Формула в ячейке D3 - =$A3-D$1
так как $ используется для абсолютной адресации то изменим формулу для ячейки E6 - =$A6-E$1
Значение ячейки D3 = 17
Значение ячейки E6 = 46
Ответ : 46
//PascalABC.NET 3.2 сборка 1318
Const
gal=4,54609;
Var
x:real;
begin
readln(x);
writeln(x*gal);
end.
//2
Var
b1,q:real;
n:integer;
begin
readln(b1,q,n);
if (b1=0) or (q=0) then
begin
writeln('b1=0 or q=0');
exit;
end
else
if q=1 then
begin
writeln('Sum=',b1*n);
writeln('Bn=',b1);
end
else
begin
Writeln('Sum=',b1*(1-power(q,n))/(1-q));
Writeln('Bn=',b1*power(q,n-1));
end;
end.