Длина цепочки равна 1сантиметру
В строке формул можно посмотреть формулы.
Лист защищен без пароля, чтобы случайно не уничтожить формулы
Площадь изображения 10*10=100 см2, обозначение dpi разшифровывается как dot per inch - точек на дюйм, дюйм у нас 2,5 см, а квадратный д.йм соответственно 2,5*2,5=6,25 см2
т.о. наше изображение содержит 100/6,25=16 дюйм2
в каждом кв.дюйме ц нас 1200*1200=1440000 точек, а т.к. а все изображение соответственно будет приобразовано в 1200*1200*16 = 23040000 точек
каждая точка кодируется 24 битами или 3 байтами, т.е. полный объем изображения будет 69120000 байт или 67500 килобайт или 65,91796875 Мега байт
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var k:=ReadInteger('k=');
var a:=ReadArrInteger('>',k);
var sp:=a.Where(x->x>0).Sum;
var po:=a.Where(x->x<0).Aggregate(BigInteger(1),(p,q)->p*q);
var b:=a.Select(x->x>0?po:(x<0?sp:0)).ToArray;
b.Println
end.
<u>Пример</u>
k= 10
> 9 20 -11 5 0 16 8 11 2 -17
187 187 71 187 0 187 187 187 187 71
Program n1;
const n=15;
var a: array[1..n] of integer;
i,k: integer;
begin
write('массив: ');
for i:=1 to n do begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
k:=0;
write('полученный массив: ');
for i:=1 to n do if a[i]<0 then
begin
a[i]:=a[i]*a[i];
k:=k+1;
end;
for i:=1 to n do write(a[i],' ');
writeln;
write('кол-во замен: ',k);
end.