Скачать: CL | DM;

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

← →
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"];

---

← →
SergP ©   (2007-01-20 15:32) [10]

> [8] Pasha L ©   (20.01.07 14:53)


> [9] Архангел Фаронов-Фленов и Ко   (20.01.07 15:10)


А зачем, если есть odd ?

---

← →
Palladin ©   (2007-01-20 15:35) [11]

> [10] SergP ©

просто это настоящее искусство... творить безумный код...

---

← →
SergP ©   (2007-01-24 19:46) [12]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c