Question

Дано 3-х значное число вывести А все четные цифры числа

Answer 1

Цифры трёхзначного числа n: n div 100; n div 10 mod 10; n mod 10

Проверка на чётность: n.isEven или n mod 2 = 0

PascalABC.NET:

begin

 var n := ReadInteger;

 var a := n div 100;

 var b := n div 10 mod 10;

 var c := n mod 10;

 if (a mod 2 = 0) then write(a);

 if (b mod 2 = 0) then write(b);

 if (c mod 2 = 0) then write(c);

end.

Пример ввода: 190

Пример вывода: 0

Пример ввода: 228

Пример вывода: 228

Пример ввода: 173

Пример вывода: (пустая строка)