Question

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

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.