сколько существует четырехзначных чисел, в записи которых имеются две числа семь

Var k,i,a,b,c,d,m:integer;
begin
for i:=1000 to 9999 do
  begin
  m:=0;
  a:=i div 1000; if a=7 then m:=m+1;
  b:=i div 100 mod 10; if b=7 then m:=m+1;
  c:=i div 10 mod 10; if c=7 then m:=m+1;
  d:=i mod 10;  if d=7 then m:=m+1;
  if m=2  then k:=k+1;
  end;
writeln(k);
end.
---
Это если надобно программку написать.
Если просто число необходимо, то 459 чисел (по последней мере так посчитала эта сама программка).