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

Question

Павла

10 сентября, 04:00

+3

Ответы (1)

Знаете ответ на вопрос?

Сергуся · Answer 1

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.