нужно взять нечетное число в цикл

[warma2d]

Здравствуйте!

Помогите пожалуйста разобраться в простом казалось мне примере.
Чтобы просто определить число нечетное или нет, то нужно применить mod-это я вроде знаю.

Но я никак не могу разобраться с другим. Как в цикле брать нечетные числа.

for k:=1 to 27 do // если требуется из ряда от 1 до 27 взять нечетные числа

Заранее благодарю!

[Roof]

var
  i: Integer;

begin
  //вариант 1
  for i := 1 to 27 do
    if Odd(i) then
      Writeln(i);

  // вариант 2
  for i := 1 to 27 do
    if (i mod 2) <> 0 then
      Writeln(i);

  ReadLn;

Соответственно вводим в google Odd Pascal и для развития читаем описание этой функции.

[Stilet]

нечетные числа.

if not Odd(i) then

[Serge_Bliznykov]

Сообщение от Stilet

нечетные числа.

if not Odd(i) then

ни-ни-ни!! Нечётные - это как Odd() (без not)

[Gambler]

помнится в бейсике можно было указывать шаг. Вот там задача решалась проще. А тут я предложил бы так:

i:=1;
while i<=27 do
begin
writeln(i);
inc(i,2);
end;

[warma2d]

Спасибо, всем за ответы.
Зачет по задаче получил