|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Egor Tsygvintsev 2:452/77.57 03 Oct 2002 22:50:20
To : Oleg I. Khovayko
Subject : Как закодировать?
--------------------------------------------------------------------------------
из 10 в 2
procedure DecToBin(x:integer, val s:string);
begin
if x<>0 then
begin
s:=str(x mod 2)+s;
DecToBin(x shr 1,s);
end;
end;
Всего доброго,
Egor Tsygvintsev.
--- ... Линия отреза ...
* Origin: Крепче за шоферку держись, баран! (2:452/77.57)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
