Задано натуральное число n. Необходимо перевести его в k-ичную систему счисления - Free Pascal

Формулировка задачи:

Задано натуральное число n. Необходимо перевести его в k-ичную систему счисления и найти разность между произведением и суммой его цифр в этой системе счисления. Например, пусть n = 239, k = 8. Тогда представление числа n в восьмеричной системе счисления — 357, а ответ на задачу равен 3 × 5 × 7 − (3 + 5 + 7) = 90.

Код к задаче: «Задано натуральное число n. Необходимо перевести его в k-ичную систему счисления - Free Pascal»

textual
const a: array [0..35] of Char = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  n, p: Longint;
  k, d, s: Integer;
  b: String;
begin
  Write('N K: '); ReadLn(n,k); b:=''; p:=1; s:=0;
  repeat d:=n mod k; b:=a[d]+b; p:=p*d; s:=s+d; n:=n div k; until n=0;
  WriteLn('Число: ',b,'  Произведение: ',p,'  Сумма: ',s,'  Разность: ',p-s);
end.

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы