maryam farshadi
سه شنبه 19 مهر 1384, 23:46 عصر
بچه ها سلام
من برنام را تا انیجا نوشتم اما نمی تونم مشکل شو حل کنم کمکم کنید
var
c:string;
r,e, n:integer;
begin
n:=strtoint(edit1.Text);
c:='';
r:=0;
while n>=0 do
begin
r:=n mod 2 ;
c:=c+inttostr(r);
edit2.Text:=inttostr(strtoint(c));
n:=n div 2;
end;
end;
end.
من برنام را تا انیجا نوشتم اما نمی تونم مشکل شو حل کنم کمکم کنید
var
c:string;
r,e, n:integer;
begin
n:=strtoint(edit1.Text);
c:='';
r:=0;
while n>=0 do
begin
r:=n mod 2 ;
c:=c+inttostr(r);
edit2.Text:=inttostr(strtoint(c));
n:=n div 2;
end;
end;
end.