Çàäà÷à . 20087

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 3000 do
    if f(i mod 100) = 1 then
      if f(i div 100) =3 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<= 3000; i++)
    if (f(i % 100) == 1)
      if (f(i /100) ==3)
        k = k + 1;
  printf(″%d″,k);
}