Çàäà÷à . 20085

var i, k: integer;
function f(x: integer): integer;
var m: integer;
begin
  if x < 10 then f := x 
  else begin
    m := f(x div 10);
    if m < x mod 10 then 
         f := x mod 10 
    else f := m;
  end;
end;
begin
  k := 0;  
  for i := 1000 to 9999 do
    if f(i mod 100) = 1 then
      if f(i div 100) = f(i mod 100) then
        k := k + 1;
  writeln(k);
end.

#include<stdio.h>
int f(int x)
{ int m;
  if (x < 10) return x; 
  else {
    m = f(x /10);
    if (m < x % 10) 
         return x % 10; 
    else return m;
  }
}
int main(void)
{ int i, k;
  k = 0;  
  for (i=1000; i<= 9999; i++)
    if (f(i % 100) == 1)
      if (f(i /100) == f(i % 100))
        k = k + 1;
  printf(″%d″,k);
}