Задание:
Срочно! Ввести натуральное число и определить, верно ли, что сумма цифр равна 10
Решение:
Pascal: var n,sum: integer; begin sum: =0; write ('N='); readln (n); while n <> 0 do begin sum: =sum+(n mod 10); n: =n div 10; end; if sum=10 then writeln ('YES') else writeln ('NO'); end.C+: #include Знаете другой ответ?