Question

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

Answer 1

3)
var
i: Integer;
begin
for i := 50 downto 1 do
if (i and 1) = 1 then {либо (i mod 2)=1, либо Odd(i)}
WriteLn(i);
end.

Answer 2

и еще одну

Answer 3

какую?