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

цифры трёхзначного числа 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

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

1-й шаг - сравнить 2 кучки по 9 - находим ту кучку где настоящий (либо меньшая по весу, либо при равенстве - в оставшейся) делим кучку содержащую настоящий брюлик на 3 кучки по 3

  2-й шаг - сравнить 2 кучки по 3 - находим ту кучку где настоящий (либо меньшая по весу, либо при равенстве - в оставшейся) делим кучку содержащую настоящий брюлик на 3 отдельных камешка

  3-й шаг - сравнить два из 3-х бриллиантов - (меньший по весу - настоящий, либо при равенстве - оставшийся - настоящий)