Найти ошибку в программе: Условие: Даны целые числа N (> 2), A и B.
Сформировать и вывести целочисленный массив размера N,
первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.
Подсказка: d[3] := A + B; d[i]:=d[i-1]*2;

var
d: array[1..100] of real;
i, N,A,B: integer;

begin
read(N,A,B);
d[1]:=A;
d[2]:=B;
for i := 3 to N do
begin
d[i]:=A+B+d[i-1];
write(d[i],' ');
end;
end.

Program Bally; var a:array[1..250] of string; N,l,max,x,i,b,p:integer; z,k:string; begin max:=0; readln(N); for i:=1 to N do readln(a[i]); z:=a[1]; l:=Pos(' ',z); Delete(z,1,l); l:=Pos(' ',z); Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); max:=max+x; for i:=2 to N do begin z:=a[i]; b:=0; l:=Pos(' ',z); Delete(z,1,l); l:=Pos(' ',z); Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); b:=b+x; if b>max then max:=b; end; for i:=1 to N do begin z:=a[i]; b:=0; l:=Pos(' ',z); p:=l; Delete(z,1,l); l:=Pos(' ',z); p:=p+l; Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); b:=b+x; if b=max then begin z:=a[i]; delete(z,p,length(z)-p+1); writeln(z); end; end; end. Наверное так!!

Компьютеры используют двоичную систему потому, что она имеет ряд преимуществ перед другими системами:для ее реализации нужны технические устройства с двумя устойчивыми состояниями(есть ток - нет тока, намагничен - не намагничен и т.п.), а не, например, с десятью, - как в десятичной;представление информации посредством только двух состояний надежноипомехоустойчиво;возможно применение аппарата булевой алгебрыдля выполнения логических преобразований информации;двоичная арифметика намного проще десятичной.