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

Question

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

Comments

ACHACHII?

---

таблицы символов?

---

какой таблицы?

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.