Напишите программу для решения задачи с клавиатуры вводится целое положительное 3-значное число ,если число четное то вычислить

Question

1 год назад

10

и вывести на экран все цифры числа каждую цифру в отдельной строке

1 ответ:

ДаШастиК · Answer 1 · 2023-08-29T23:25:56+03:00

<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var n := ReadInteger;

if n.IsEven then n.ToString.ToCharArray.PrintLines

end.