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

← →
Mettt (2007-01-19 12:21) [0]

хочу for a:=0 to 1000 step 2 do begin // 0 2 4 6 8 9
но параметра step нету
придется так
for a:=0 to 1000 s do begin if TestChet(a)=True thenдействия
кривая-медленная идея перевод в стринг ,анализ последнего СИМВОЛА
на 0.2.4.8

← →
Комбинатор (2007-01-19 12:33) [1]

a:=0;
While a<=1000 do
a:=a+2;

← →
Думкин © (2007-01-19 12:33) [2]

Плохая провокация. Не цепляет.

← →
Правильный Вася (2007-01-19 12:34) [3]

odd

← →
begin...end © (2007-01-19 13:27) [4]

for a := 0 to 500 do
... a*2 ...

← →
Mettt (2007-01-19 22:59) [5]

А если for a:=0 to 1000
1000 - это переменная ? то

M:=dMass DIV 2 ; for a:=0 to M do begin нормально ?

← →
DrPass © (2007-01-19 23:45) [6]

> Mettt (19.01.07 22:59) [5]

Возьми Турбо Бейсик, там твоя проблема решена

← →
ors_archangel © (2007-01-19 23:50) [7]

> // 0 2 4 6 8 9

9 - 10, тогда уж
Да, stepа не хватает.....

← →
Pasha L © (2007-01-20 14:53) [8]

function isChet(a:integer):boolean; begin result:=a mod 2 = 0; end; if isChet(a) then {}

← →
Архангел Фаронов-Фленов и Ко (2007-01-20 15:10) [9]

function isChet(a:integer):boolean;
begin
result:=a mod 2 = 0;
end;

Правильные пацаны пишут так:
Result := a / 2 <> a div 2;

А хакеры вот так:
s := IntToStr(a);
Result := s[Length(s)] in ["0", "2", "4", "6", "8"];

кстати седня на вижуал-васике попросили написать програмку для какой-то контрольной у студента...
ну я и там где нужно было определить четность числа написал:
if a/2=int(a/2) then
...
пофиг. главное что работает и что я получил обещаное пиво...

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