Порфирий
4 год назад
Дано натуральное число n. Определить, на Как узнать сколько последняя цифра заданного числа меньше суммы всех его цифр.
ОТВЕТЫ
Борислав
Oct 24, 2020
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.
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.
487
Смежные вопросы:
