Спасите!!!

[Маришка]

Целое число, представленное в двоичной системе счисления, модуль которого превышает двоичного числа 1111111, вводится в вещественную переменную. Необходимо вывести на экран значение в 10-й системе счисления как значение целочисленной переменной. Предусмотреть проверку правильности ввода информации

[Хыиуду]

т.е. надо строку с двоичным представлением десятичного числа перевести в целое, записать в дробное и вывести в виде целого???

[Маришка]

да наверно, я не очень в этом разбираюсь!!!!

[Хыиуду]

http://forum.developing.ru/showthread.p ... #post38876
readln(s);
for i:=1 to length(s) do if s not in ['0','1'] then begin writeln('Неверный ввод!'); exit;end;
r:=bin2dec(s);
writeln(round(r));

[Маришка]

Спасибо!!!