Записать число в десятичной система счисления 2489 и двоичной системе счисления 2489

2489 =9×10^0+8×10^1+4×10^2+2×10^3= 2489=9×2^0+8×2^1+4×2^2+2×2^3=

// pascalabc.net 3.1, сборка 1214 от 09.04.2016 function f(x: real): =3+x*(4+x*(5+x*6)); begin   var a: =-1.0;   var b: =0.0;   var eps: =1e-6;   var fa: =f(a);   var x,fx: real;   if abs(fa)< =eps then writeln('x=',a,',y=',fa)   else begin       var fb: =f(b);       if abs(fb)< =eps then writeln('x=',b,',y=',fb)       else           if fa*fb> 0 then writeln('на указанном интервале корней нет')           else               repeat                   x: =(a + b)/2;                   fx: =f(x);                   if abs(fx)< =eps then writeln('x=', x, ', y=', fx)                   else                       if fa*fx> 0 then a: =x else b: =x;               until abs(fx)< =eps   end end. результат выполнения программы: x=-0.790308952331543, y=-6.74849237825015e-07

Var a: array of integer; i,n,s: integer; begin   write('число элементов : ');   readln(n);   setlength(a,n);   for i: =0 to n-1 do begin       a[i]: =random(121)-60;       if a[i]> 0 then s: =s+a[i];       write(a[i]: 4);   end;   writeln;   writeln('сумма больших 0 : ',s); end. тестовое решение: число элементов : 10   -49 -36  -2  -8 -46  36 -56  15  57  56 сумма больших 0 : 164