Задача по паскалю. Символьный тип данных Вывести ** экран все цифры коды которых кратны 3

Question

Задача по паскалю. Символьный тип данных
Вывести на экран все цифры коды которых кратны 3

Comments

ABC, turbo, free, ABC.net ?

---

ABC

Answer 1

Var
C:char;
Begin
For C:='0' to '9' do
 if Ord(C) mod 3 = 0 then
 WriteLn(C)
End.