Çàäà÷à . 20084

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

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