Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Вниз

Pascal срочно, плзззз...   Найти похожие ветки 

← →
cok   (2002-03-31 21:49) [36]

>Anatoly Podgoretsky © (31.03.02 15:19)
>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;

> M := N shr 1; Здесь, наверно, надо написать N:=N shr 1;
> if F = 1 then N or $8000; Здесь ошибка, но не пойму какая.

---

Страницы: 1 2 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c