Question

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

Answer 1

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