Составьте программу которая выводит ** экран нечетные числа от 1 до 50 в порядке убывания...

Question

Составьте программу которая выводит на экран нечетные числа от 1 до 50 в порядке убывания c циклом While

Comments

Надо без dec и n-=2

Answer 1

var
  n: integer := 50;

begin
  if (n mod 2 = 0) then
    dec(n);

  while (n >= 1) do
  begin
    writeln(n);
    n -= 2;
  end;
end.

Comments

Я учащийся 8 класса. Мы dec не прходили

---

1. Просто уменьшение на 1, для универсальности
2. Вас карают за чтение документации?
3. И ладно, n -= 1 или n := n - 1