Var
n: longint;
i, sum: integer;
begin
Readln(n);
Sum := 0;
while n > 0 do
begin
Sum := sum + (n mod 10);
n := n div 10;
end;
Writeln(sum);
end.
Системы мира, термин, употребляемый в астрономии для обозначения представлений о строении системы небесных тел - Земля, Луна, Солнце, планеты.
Гелиоцентрическая Система,
Система сфер
<span>геоцентрическая Система
:)</span>
<span>Ans: 17,179,869,184 бит -> 2^34</span>
1.
Function Check(A : Longint) : Boolean;
Begin
If A>9 then Check:=((A mod 10)=(A div 10 mod 10)) and Check(A div 10) else Check:=True;
end;
Var N : Longint;
Begin
Readln(N);
Writeln(Check(N));
end.