Детёныши ВП |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Детёныши ВП » Система счисления » Перевести число из десятичной в P-ичную
Изначально число разбито на цифры и сидит в массиве b!!!
var b:array[1..10000]of longint; k,a,i,p:longint;
begin
readln(p);
k:=0;
while a>0 do
begin
k:=k+1;
b[k]:=a mod p;
a:=a div p;
end;
for i:=k downto 1 do
write(b[i]);
End.
процедура ввода:
Procedure vvod;
Var s:longint;
Begin
Readln (s);
i:=1;
While s>0 do
Begin
b[i]:=s mod 10;
s:=s div 10;
i:=i+1;
End;
End;
Вы здесь » Детёныши ВП » Система счисления » Перевести число из десятичной в P-ичную
