100 балов, решите нужно очень (составить программу определения общего сопротивления электрической цепи при последовательном и параллельном соединении трех резисторов)

Объяснение:

const    

n = 10;    

r1 = 2;  

  r2 = 4;    

r3 = 3;

var  

  temp1, temp2: Real; begin  

  temp1 := r1 * ((n div 2) * (n + 1) + Ord(Odd(n)) * ((n div 2) + 1));    

temp2 := 2 * r2 * r3 / (r2 + r3);  

  WriteLn('R=',  (r1 + temp1 * temp2 / (temp1 + temp2) + r2):0:4);

end.

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

program risovalka;

  uses  crt,graphabc;

    var  xc,yc,r1,r2,rc,ro,n,i,x,y: integer;

  a: real;

    begin  repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');

      read(n);

    until  n  in  [5..10];

    clrscr; hidecursor;

    xc: =windowwidth  div  2;

    yc: =windowheight  div  2;

    r1: =40;

    r2: =120;

    rc: =100; ro: =30;

    a: =2*pi/n;

    circle(xc,yc,r2);

    circle(xc,yc,r1);

      for  i: =1  to  n  do    begin    x: =xc+round(rc*cos(a*i));

      y: =yc-round(rc*sin(a*i));

      circle(x,y,ro);

        end.