Решите срочно надо пожалуйста
Приложения:
Ответы на вопрос
Ответил катягоголева
0
while n > 0 do begin
S := S + n mod 10;
n := n div 10;
end;
Все! В S сумма цифр.
S := S + n mod 10;
n := n div 10;
end;
Все! В S сумма цифр.
Новые вопросы