G$5*$A12 , знак $ необходим для закрепления ячейки в формуле , в
<span>D$5 закрепляется строка , а столбец , при переносе формулы изменяется
ну и аналогично с </span><span>$A10.</span><span><span>Столбец</span> закрепляется , а строка изменяется . </span>
FN = FN-2 + FN-1
Сдледовательно, если N+2 + N-1 = N, то N - число Фибоначчи.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -35, 35);
a.Println;
var s := 0;
for var i := 0 to a.High do
begin
if i.IsOdd then
s += a[i];
if a[i] mod 5 = 0 then
Print(a[i])
end;
Writeln;
Println('Сумма', s)
end.
Не очень поянятен вопрос..
Если нужно посчитать z, то:
program pr1;
var
a,c,d,b:integer;
z:real;
begin
readln(a,b,c,d);
z:=b*(5*a*c+3*(c-d))/a*(b-c);
writeln(z:8:3);
end.
const n=20;
var
a:array [0..n] of integer;
k,i: integer;
begin
randomize;
k:=0;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
writeln('Индексы нечетных элементов:');
for i:=1 to n do
if a[i] mod 2 <> 0 then
begin
write(i,' ');
k:=k+1;
end;
writeln;
writeln('k = ',k);
end.
Пример:
Исходный массив:
62 21 39 17 75 30 10 29 80 1 88 93 50 48 17 9 41 2 1 8
Индексы нечетных элементов:
2 3 4 5 8 10 12 15 16 17 19
k = 11