Ответы на вопрос:
{перевод двоичного числа в десятичное. символы, отличающиеся от 0 и 1, заменяются нулями. программа будет работать некорректно при вводе более 31 знака. } var bin: string; i,d: integer; p,dec: longint; begin write('введите двоичное число: '); read(bin); dec: =0; p: =1; for i: =length(bin) downto 1 do begin if bin[i]='1' then d: =1 else d: =0; dec: =dec+d*p; p: =2*p end; writeln('десятичный эквивалент: ',dec) end. тестовое решение: введите двоичное число: 1011011001 десятичный эквивалент: 729
Популярно: Информатика
-
настя720815.09.2020 19:01
-
Валерия99911118.04.2020 00:48
-
tyzigfr27.01.2021 01:28
-
sofapravdina04.08.2020 20:05
-
orlovs201704.11.2022 01:09
-
жанна42502.08.2020 08:28
-
Марянян29.04.2022 16:10
-
osumika19.07.2021 01:05
-
бах813.05.2023 22:46
-
АрТёМкА94512.05.2022 12:22