Четное или нечетное число

← →
Ngk88 (2006-10-27 13:57) [0]

Как узнать - четное или нечетное число? Новичок... =)

Спасибо.

← →
markers © (2006-10-27 13:59) [1]

if odd(inc) then Brush.Color:=$FFFFFF else Brush.Color:=$F5F5F5;

← →
Desdechado © (2006-10-27 15:42) [2]

x mod 2 = 0 - это четное

← →
DevilDevil © (2006-10-27 16:14) [3]

if X and 1 = 0 then ЧЁТНОЕ

← →
Shirson © (2006-10-27 16:17) [4]

odd(x)

← →
C@N © (2006-10-28 19:08) [5]

3й класс 2я четверть... математика... число является четным, если оно без остатка делится на 2!!!

var i,iAns:integer; Begin iAns:= i mod 2; If iAns=0 then showmessage ("Число "+ inttostr(i)+" является четным"); End;

но это действует для Integer, для Real выдумай сам )))

← →
vidiv © (2006-10-28 19:22) [6]

как вариант:
if I and 1 = 0 then //четное

← →
Desdechado © (2006-10-28 19:30) [7]

Shirson © (27.10.06 16:17) [4]
C@N © (28.10.06 19:08) [5]
vidiv © (28.10.06 19:22) [6]
повторяетесь, господа

> для Real выдумай сам
первый раз слышу, чтоб на четность проверяли дроби

← →
vidiv © (2006-10-28 19:49) [8]

> vidiv © (28.10.06 19:22) [6]
> повторяетесь, господа

Во фишка =)) Внатуре =))) Вывод: пора на боковую =)

← →
Все равно шутка (2006-10-28 21:10) [9]

Вот, не тестировал, но вроде должно работать

s := inttostr(X); s := copy (s, length (s) - 1, 1); if s = "0" then writeln ("odd") else if s = "2" then writeln ("odd") else if s = "4" then writeln ("odd") else if s = "6" then writeln ("odd") else if s = "8" then writeln ("odd") else if s = "1" then writeln ("even") else if s = "3" then writeln ("even") else if s = "5" then writeln ("even") else if s = "7" then writeln ("even") else if s = "9" then writeln ("even") else writeln ("что-то очень странное :)");

← →
vidiv © (2006-10-28 21:12) [10]

> Вот, не тестировал, но вроде должно работать

не будет работать.. в строке 2 - ошибка

← →
Ketmar © (2006-10-28 21:17) [11]

кустращина это всё. надо создать SQL-базу на оракуле, и записать туда все целые числа с соответствующими флажками. сервер, правда, понадобится нехилый. зато можно будет новый сервис в инете забабахать.

← →
Ketmar © (2006-10-28 21:20) [12]

а какие ньюсы можно на инетовском сайте давать! "купили два новых сервера. добавлено несколько миллиардов чисел!" %-)

← →
Anatoly Podgoretsky © (2006-10-28 21:32) [13]

Desdechado © (28.10.06 19:30) [7]
Математика она разная бывает, есть и для дураков.

← →
Zeqfreed © (2006-10-28 21:58) [14]

Все равно шутка (28.10.06 21:10) [9]
Код хороший, но для того, чтобы его использовать придется объявить дополнительно процедуру:

procedure WriteLn(const s : String); begin if (s = "even") then System.WriteLn("odd") else if (s = "odd") then System.WriteLn("even") else System.WriteLn(s); end;

← →
Petr V.Abramov (2006-10-29 00:37) [15]

>[15] Petr V.Abramov 29-Oct-2006, 00:37
ну, это общее направление. идея, конечно, сырая -- дорабатывать и дорабатывать...

> [16] Ketmar © (29.10.06 01:01)

а за доступ к сервису можно плату брать и делать деньги из воздуха :)
к нему же можно таблицу логарифмов и доходы увеличатся вдвое %)

procedure TForm1.Button1Click(Sender: TObject); var S: string; begin S := IdHTTP1.Get( Format("http://www.google.com.ua/search?q=%d%%252&meta=", [StrToInt(Edit1.Text)])); case S[Pos("modulo 2 = ", S) + Length("modulo 2 = ")] of "0": Caption := "even"; "1": Caption := "odd"; else Caption := "neigther"; end end;

← →
Ngk88 (2006-10-29 20:44) [20]

Ну и развели тут! :)

Про функцию odd не знал, а до банального
iAns:= i mod 2; If iAns=0 then showmessage ("Число "+ inttostr(i)+" является четным"); End;
мой чайник не догадался.

Спасибо!

Четное или нечетное число Найти похожие ветки