записывай в А1 А2 А3 и тд. комплектующие а после этого например если ты закончила записывать на А8 то под А8 тоесть в а9 пиши формулу А1 А2 и тд. между ними + и все.
1. 75013 (10) -> x (2)
10010010100000101 (2).
2. 11101110100 (2) -> :
x (10) - 1908 (10).
x (8) - 3564 (8).
x (16) - 774 (16).
Wrap enabled
uses Graph;
const
delta: array[1 .. 4] of record
X, Y: integer;
end =
((X:-1; Y: 0), (X: 0; Y:-1),
(X: 1; Y: 0), (X: 0; Y: 1));
var
grDriver, grMode, ErrCode: Integer;
len, i, j: integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
if ErrCode <> grOk then begin
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
readln; halt
end;
len := 10;
moveto(getmaxx div 2, getmaxy div 2);
for i := 1 to 10 do begin
for j := 1 to 2 do linerel(delta[j].X*len, delta[j].Y*len);
inc(len, 10);
for j := 3 to 4 do linerel(delta[j].X*len, delta[j].Y*len);
inc(len, 10)
end;
readln;
closegraph;
end.
Примерно