Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
ВнизPascal срочно, плзззз... Найти похожие ветки
← →
Anatoly Podgoretsky (2002-03-31 15:19) [20]И всего то?
max := N;
for i := 1 to 16 do begin
F := N and 1;
M := N shr 1;
if F = 1 then N or $8000;
if N > Max then Max := N;
end;
Страницы: 1 2 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.008 c