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