Задача по паскалю. Символьный тип данных

Вывести на экран все цифры коды которых кратны 3

Question

Гремислав

2 января, 03:02

+5

Ответы (1)

Знаете ответ на вопрос?

Ариадна · Answer 1

Var

C:char;

Begin

For C:='0' to '9' do

if Ord (C) mod 3 = 0 then

WriteLn (C)

End.

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