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

Question

Гаря

16 марта, 08:00

+2

Ответы (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.