написать задачу перевода из 10 с.с. в 2 с.с. двумя способами:
1) функции
2) процедуры

спасибо ! :)

Обращайтесь...

что такое toBin и concat ?

concat возвращает строку, образованную при слиянии строк-аргументовtoBin - функция и процедура, они выше объявлены, выберите нужное

спасибо С:

function toBin(dec: integer): string;var  buf: integer;  str: string;begin  buf := dec;  repeat    str := concat(IntToStr(buf mod 2), str);    buf := buf div 2;  until (buf = 0);  toBin := str;end;procedure toBin(dec: integer; var bin: string);var  buf: integer;begin  buf := dec;  repeat    bin := concat(IntToStr(buf mod 2), bin);    buf := buf div 2;  until (buf = 0);end;var  s: string;begin  writeln(toBin(10));  toBin(10, s);  writeln(s);end.