Выведите ** экран все нечетные числа от 31 до 1023

Question

Выведите на экран все нечетные числа от 31 до 1023

Comments

программой Паскаль вроде ))

Answer 1

Var min, max: integer;
begin
max := 1023;
for min := 31 to max do
if ( min mod 2 <> 0 ) then write( min, ' ');
end.