Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
спасибо ! :)
Ответ дал:
0
concat возвращает строку, образованную при слиянии строк-аргументов
toBin - функция и процедура, они выше объявлены, выберите нужное
toBin - функция и процедура, они выше объявлены, выберите нужное
Ответ дал:
0
спасибо С:
Вас заинтересует
7 лет назад
10 лет назад
10 лет назад
10 лет назад