Паскаль.Число в двоичной системе счисления, введенное пользователем программы, преобразовать в десятичное число. Результат вывести на экран.
Паскаль.Число в двоичной системе счисления, введенное пользователем программы, преобразовать в десятичное число. Результат вывести на экран.
Гость
Ответ(ы) на вопрос:
Гостьvar s :string;
i, j, dva, otv :integer;
begin
write (‘vvedite dvoichnoe chislo = ’);
readln (s);
for i := 1 to length(s) do
if strtoint (s[i]) > 0 then
begin
dva:= 1;
for j:= 1 to length(s)-i do
dva:=dva*2;
otv:=otv+dva;
end;
writeln(otv);
readln;
end.
Не нашли ответ?
Похожие вопросы