Системы счисления

[Nikitaunett]

мне не в Delphi надо а в pascal

[vasek123]

Сообщение от Nikitaunett

мне не в Delphi надо а в pascal

Считай, то- же самое(лишь немного довести до ума...). Ну а если уж, и паскаль не знаем, то вам, однозначно, во фриланс...

[Nikitaunett]

ни не знаем, а изучаем

[Nikitaunett]

Сообщение от russian-stalker

Можно и через массивы, и через просто числа, но мне нравится делать через строки

а маасив задавать с каким размером??

[ОДИНОЧЕСТВО В СЕТИ]

устраивает?

{из десятичной в любую другую систему счисления (основание не больше 16)}
const z:array[0..15] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');

var x,a: integer;
s:string;

begin
readln(a);
readln(x);
s:='';// инициализация строки и очистка её от мусора
if a=0 then s:='0' else
if x<=16 then begin
while a>0 do begin
s:=z[(a mod x)]+s;
a := a div x;
end;
end;
write(s);
readln;
end.

[Nikitaunett]

понятно почти все кроме s:=′′;

[vasek123]

Сообщение от Nikitaunett

понятно почти все кроме s:=′′;

Просто, строковую переменную, в самом начале, очищаем... Вот и все.

[Nikitaunett]

ааааа!!! спасибо.