Program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.
<span>
если что то не понятно просто спроси и я обьясню :)</span>
X+y+z = 48
1 шаг: 1: x-y; 2: y+y
2 шаг: 1: x-y; 2: y+y-z; 3: z+z
3 шаг: 1: (x-y)+(x-y); 2: y+y-z; 3: z+z-(x-y)
2*(x-y) = 16; 2*y-z = 16; 2*z-(x-y) = 16
x-y = 8
2*z-8 = 16, z = 12
2*y-12 = 16, y = 14
x-14 = 8, x = 22
Ответ: 22 14 12
Это одно из исходных аксиоматических понятий
или - объекты у которых есть сходства, можно объеденить во множества(группы)