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

Question

Агита

28 октября, 06:33

+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.