В помощь по решению задач ЕГЭ по Информатике

Задача 18

Задача 23

• Решалка задачи 23 (html)
• Решалка задачи 23 (logsys.exe)
• Разъяснялка решения задачи 23

Задача 24

program task24;
var
  N, d, m: integer;

begin
  readln(N);
  m := N mod 10;
  while N > 0 do
  begin
    d := N mod 10;
    if d > m then
      if d mod 2=0 then
        m := d;
    N := N div 10
  end;

  if m = 0 then
    writeln('NO')
  else
    writeln(m)
end.

Задача 26