Ответы на вопрос:
Procedure convert ( x: integer ); var s: string; k, error, len: integer; element: array[1..20] of real; i, rez: real; const n = -2; begin s : = inttostr(x); len : = length(s); if len = 0 then writeln('ошибка! ') else begin i : = 0; rez : = 0; for k : = 1 to len do val(s[k], element[k], error); for k : = 1 to len do begin i : = element[k] * power( n, len - k ); rez : = rez + i; end; writeln(rez); end; end; var numeric: integer; begin write('введите двоичное число для перевода в систему счисления с основанием (-2): '); readln(numeric); write('ответ: '); convert(numeric); end.
Популярно: Информатика
-
наталя4005.10.2022 22:57
-
olezhkash22803.03.2022 11:07
-
veraveta10.09.2020 11:26
-
vladcjdyte04.07.2022 07:48
-
БОГДАН11115374885423.03.2022 20:49
-
kalina1976200524.01.2022 22:49
-
ekaterinibytori30.05.2023 18:28
-
максим172202.09.2022 06:18
-
катя18405.06.2022 15:32
-
sass2027.02.2022 00:06