Question

выведите на печать все нечётные элементы таблицы в Паскале
1 2 3 4 5 6 7
3 -4 0 2 -7 4 0

Answer 1

var i: integer;
begin
  for i:=0 to 254 do
  begin
    if i mod 2=0 then break else write(ord(i));
  end;
  readln;
  readln
end.