1. может ошибка? потому что это представление
2. понятие
Var
Z:array [1..10] of Integer;
i,max,min:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to 10 do
Begin
Write('Z(',i,') = ');
ReadLn(Z[i]);
End;
max:=Z[1];
min:=Z[1];
For i:= 2 to 10 do
begin
if (Z[i]>max) then max:=Z[i];
if (Z[i]<min) then min:=Z[i];
End;
Writeln('Наибольшее число = ',max);
Writeln('Наименьшее число = ',min);
end.
1) считаешь кол-во цифр, и сопостовляешь им степени 2 сомому правому-2^0
2) слагаешь их
пример: 11001=1*2^4+1*2^3+0*2^2+0*2^1+1*1^0= 16+8+0+0+1=25
ПОСЛЕДОВАТЕЛЬНОСТЬ ФИБОНАЧЧИ, математическая ПОСЛЕДОВАТЕЛЬНОСТЬ, каждый член которой является суммой двух предыдущих. Таким образом, если энный член последовательности обозначается хn, то для всей последовательности справедливым будет уравнение: хn+2=хn+хn+1, первыми двумя членами которого будут x1=l и x2=1. Порядок последовательности при этом таков: 1, 1, 2, 3, 5, 8, 13, 21..., следующим числом будет 34, т. к. сумма 13 и 21 равна 34 и т.д. Когда число n становится очень большим, отношение соответствующих членов устремляется к величине (Ц5+l)/2. Это соотношение называется золотым. В природе последовательность Фибоначчи можно проследить на примерах спирального развития сегментов раковины и лепестков подсолнуха, расходящихся лучами из одной точки в центре цветка. см. также ЗОЛОТОЕ СЕЧЕНИЕ.<span> </span>
Program p1;
uses crt;
var a,b,i:integer;
begin
for i:=15 to 25 do begin
a:=a+i*i;
b:=i*i;
writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')');
end;
write(a);
end.