Var a,b,c,e:longint;
begin
writeln('введите число');
readln(a);
for b:=a downto 0 do begin
c:= a mod 10;
a:=a div 10;
e:=e+c;
end;
writeln('сумма цифр числа => ',e);
end.
Вот то что Вам нужно. В прикрепленном файле ест файл Excel который решает систем счислений автоматически))
Відповідь на зображенях. Надіюсь підійде.
Листинг программы и скриншот результата в приложениях
После выключения компьютера исчезает оперативная память