Дано натуральное число n. Найти отношение разности первой и последней цифр данного числа к их сумме.

давай на ассемблере)

Var   n,c:integer;BeginWrite('n = ');ReadLn(n);c:=n mod 10;While n div 10 > 0 do   n:=n div 10;WriteLn((n-c)/(n+c))End.