8 lines
142 B
ObjectPascal
8 lines
142 B
ObjectPascal
//Modern way:
|
|
uses School;
|
|
begin
|
|
1.digits.Sum.print;
|
|
1234.digits.Sum.print;
|
|
$FE.digits(16).Sum.print;
|
|
$F0E.digits(16).Sum.print;
|
|
end.
|