Установить последовательное выполнение логических операций с учетом скобок и приоритетов
241
253
Ответы на вопрос:
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.
Популярно: Информатика
-
tvzhanna8018.12.2022 12:58
-
Vampire123425.12.2021 16:51
-
homonorolla26.11.2022 09:28
-
syedelifozq8ou20.05.2023 10:51
-
osmo200810.02.2021 03:56
-
vlasyukksterin22.04.2021 06:09
-
АлияКью26.07.2020 09:04
-
austinova57802.03.2022 03:45
-
Алинаwlis15.02.2020 01:07
-
Deni0523.02.2022 09:45