Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Нужно написать линейную программу перевода четырехзначного двоичного числа в десятичную систему счисления.

Ответ оставил Гость

Var s : String;
Begin
  Repeat
    Readln(s);
  Until Length(s)=4;
 Writeln((Ord(s[1])-Ord(0))*8+(Ord(s[2])-Ord(0))*4+(Ord(s[3])-Ord(0))*2+(Ord(s[4])-Ord(0)));
end.