Дано натуральное число n. Найти отношение разности первой и последней цифр данного числа к их сумме.
Ответы на вопрос
Ответил Аноним
0
Var
n,c:integer;
Begin
Write('n = ');ReadLn(n);
c:=n mod 10;
While n div 10 > 0 do
n:=n div 10;
WriteLn((n-c)/(n+c))
End.
n,c:integer;
Begin
Write('n = ');ReadLn(n);
c:=n mod 10;
While n div 10 > 0 do
n:=n div 10;
WriteLn((n-c)/(n+c))
End.
Ответил GeForce44RU
0
давай на ассемблере)
Новые вопросы