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

Нужно написать линейную программу перевода четырехзначного двоичного числа в десятичную систему счисления.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы