Началось все с самого простого калькулятора, который мог переводить из десятичной системы счисления в двоичную, восьмиричную и шестнадцатеричную. потом один из пользователей запросил возможность переводить число из десятичной системы счисления в схему с любым другим основанием. так появился калькулятор в котором можно было указывать основание системы счисления в которую надо перевести десятичное число. вводится число ff, вводится основание системы счисления этого числа - 16. потом, основание системы счисления, в которую надо переобразовать , это число- 10. получается результат 255 в десятичной системе счисления.
solonataly5
23.08.2021
1)var a, z, s: integer; begin write(' введите число: '); read(z); a : = z; while a > 0 do begin s : = s + a mod 10; a : = a div 10 end; write(' сумма цифр числа ', z, ' = ', s) end.