Если у обычных то 10-тиричная
var
a, b, x, s, p: integer;
begin
writeln(' Ввести х');
readln(x);
s := 0;
x := Abs(x); { защита от ввода отрицательных }
while x > 0 do
begin
s := s + x mod 10;
x := x div 10
end;
writeln(' Сумма цифр=', s);
end.
Program n1;
var x,y,z: real;
procedure kvur(a,b,c: real);
var D: real;
begin
D:=b*b-4*a*c;
writeln('x1=',(-b+sqrt(D))/2*a);
writeln('x2=',(-b-sqrt(D))/2*a);
end;
begin
write('a=');
readln(x);
write('b=');
readln(y);
write('c=');
readln(z);
kvur(x,y,z);
end.
513 :16 = 32 ( <u>1</u> )
32 : 16= <u> 2</u> (<u>0</u>) ---> 513 = 201 (в 16с/с)
600 : 16 =37 ( <u>8</u> )
37: 16 =<u> 2</u> ( <u>5</u> )<u /> ---> 600 = 258 в 16с/с
2010 :16 = 125 ( 10=<u>A</u>)
125: 16 = <u>7</u> (13=<u>D</u>) ---> 2010 = 7DA в 16с/с