Государственная Итоговая Аттестация (ГИА)

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

Задача 18




Задача 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

Праздники России

Рейтинг