Составьте программу,которая выводит на экран нечетные числа в диапазоне от 20 до 50

СLS
FOR i=20 TO 50
IF INT(i/2) <> (i/2) THEN PRINT i
NEXT i
END

Pascal:
var i:integer;
begin
  i:=21;
  while i<=50 do
   begin
     write (i,' ');
     inc(i,2); 
   end; 
  readln;
end.

C++:
#include <iostream>
#include <conio.h>
using namespace std;

int main()
 {
   for (int i = 21; i<=50; i+=2)
     {
       cout <<i <<" ";
     }
   cout <<endl;
   getch();
   return 0;
 }

//PascalABC.NET
var
i:integer;
begin
for i:=50 downto 1 do
if i mod 2 =1 then writeln(i);
end.

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.

program z1;

var i:integer;

begin

for i:=49 downto 1 do

 if i mod 2 = 1 then write(i:3);

end.

Pascal:

program decrement;
var
  i: integer;
begin
  i := 50;
  while i >= 1 do
    begin
      if i mod 2 = 1 then
        writeln(i, ' ');
      i := i - 1;
    end;
end.

---

C++:

#include <iostream>

int main() {
    int i = 50;
    while (i >= 1) {
        if (i % 2 == 1)
            std::cout << i << ' ';
        i--;
    }
    return 0;
}

Pascal:
var i: integer
begin
  I:=21
  while i<50 do
  begin
     write ( i ," ) ;
     inc ( i,2) ;
   end;
 readln;
end.

Program z22;  Var  i:integer;Begin  for i:=20 to 50 do    if (i mod 2 <> 0) then write(i,'  ');End.

Var a:integer;
begin
for a:=50 dawnto 1 do begin
if (a mod 2<>0) then writeln(a);
end;
end.

Var i:integer;
begin;
for i:=50 downto 1 do
if i mod 2<>0 then writeln(i);
end. 

var
  n: integer := 50;

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

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

Var
 i: integer;

begin
  for i:=20 to 50 do
    if i mod 2<>0 then
     writeln(i);
end.

Результат:
21
23
25
27
29
31
33
35
37
39
41
43
45
47
49

Var
 i:integer;

begin
 for i:=50 downto 1 do
  if i mod 2 <> 0 then
   write(i,' ');
end.

Ясно же, как пень. 11, 31, 2