Ответы
Ответ дал:
0
Var
C:char;
Begin
For C:='0' to '9' do
if Ord(C) mod 3 = 0 then
WriteLn(C)
End.
C:char;
Begin
For C:='0' to '9' do
if Ord(C) mod 3 = 0 then
WriteLn(C)
End.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад