Как записывается десятичное число 13 10 в двоичной системе счисления

13 10 это что? 1310? так? если это четырехзначное число то,1310 то в двоичной системе будет 10100011110 а если это два разных числа то число 13 будет иметь вид 1101.а число 10 ,то  1010

Для целесообразности вместо корня из 1 заранее используется 1 (поскольку нет нужды вычислять). код программы ниже // проверено в pascalabc.net (версия 3.2, сборка 1363) program zz; var n, i, u, d, f, c, ff, cc: integer; y: real; procedure getdiv(); begin ff : = f; cc : = c; d : = 0; while cc > 0 do begin d : = d + ff; ff : = ff + 1; cc : = cc - 1; end; end; function facto(num: integer): integer; var ff, fi: integer; begin ff : = 1; for fi : = 2 to num do ff : = ff * fi; facto : = ff; end; begin write('n = '); readln(n); y : = 0; f : = 2; c : = 2; for i : = 1 to n do begin u : = facto( n - (i - 1) ); if i = 1 then d : = 1 else begin getdiv(); f : = ff + 1; c : = c + 1; end; y : = y + (u / d); end; writeln('y = ', y); end.

1) program t1; var a: array[1..6] of integer; i, m, mi: integer; begin writeln('ввод массива'); for i : = 1 to 6 do readln(a[i]); mi : = 1; m : = a[mi]; for i : = 2 to 6 do if a[i] < m then begin mi : = i; m : = a[mi]; end; writeln('минимум: ', m, ' (a[', mi, '])'); end. 2) предполагая, что 'коробочка' - это корень program t2; const f = -8; t = 6; s = 2; var i: real; function gety(x: real): real; begin if (x > -3) and (x < = 3) then gety : = sqrt(x) else gety : = 1 / (x * x); end; begin writeln('промежуток [', f, '; ', t, '], шаг ', s, ': '); i : = f; while i < = t do begin writeln('y(', i, ') = ', gety(i)); i : = i + s; end; end.