[ambrosio]

Доброй ночи! Скажите,пожалуйста, что не правильно в программе, не понимаю, почему не идет?
Задание:
Написать программу на языке программирования, которая преобразует введённое двоичное число в десятичное.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,n,j:integer; s:string; sum:real;
begin
sum:=0;
s:=Edit1.Text;
n:=length(s);
for i:=1 to n do
  begin
  j:=n-i;
  sum:=sum+(strtoint(s[i])*IntPower(2,j));
  end;
Edit2.Text:=floattostr(sum);
end;

Админ: Пользуемся тегами для оформления кода!