хоспаде, мона было ж на мыло се написать 
Добавлено (2009-03-19, 7:06 Pm)
---------------------------------------------
кста потом напишешь какое задание было 
, а то смысла я чет не пойму 
Quote (UnEvil)
function DecToR (x: longint; R: word): string;
var
result: string;
remainder: word;
c: char;
begin
result := '';
while x <> 0 do
begin
remainder := x mod R;
x := x div R;
if remainder < 10 then
c := chr (remainder + ord ('0'))
else
c := chr (remainder + ord ('A') - 10);
result := c + result;
end;
DecToR := result
end;
берется число от -2млрд до +2млрд, делится на число в диапазон от 0 до 65535. Пока делимое не равно 0 вычисляется остаток от деления и целая часть(правда птом в коде целая часть больше нигде не виднеется). Если остаток меньше 10 то "с" является символом под номером(остаток+число,символизируюещее "0"). В остальных случаях "с" является символом под номером(остаток+число,с символом"А"-10),
причем, пока делимое не равно 0 все значения "с" будут складываться(хз как они это будут делать еси они строковые значения )
UnEvil, еси ты писал етот код, то объясни какое было задание и что ето все значит, мне а то поступать на факуль информатики
