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

Question

Даниша

24 января, 10:31

+4

Ответы (1)

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

Коста · Answer 1

Var

n, S:integer;

Begin

S:=0;

Write ('n = ') ; ReadLn (n) ;

repeat

n:=n div 10;

S:=S+n mod 10;

until n = 0;

WriteLn (S)

End.