ЗАДАЧА В ПАСКАЛЕ. Дано натуральное число n. Определить, ** сколько сумма первой и...

Question

ЗАДАЧА В ПАСКАЛЕ.
Дано натуральное число n. Определить, на сколько сумма первой и последней цифр заданного числа меньше произведения первой и последней цифр этого же числа.

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.