Var n: integer; begin write('Число = '); readln(n); write('Позиции четных цифр: '); if not Odd(n div 100) then write(' 1 '); if not Odd(n div 10 mod 10) then write(' 2 '); if not Odd(n mod 10) then write(' 3 '); end.
Пример: Число = 834 Позиции четных цифр: 1 3
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
