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 чисел (по крайней мере так посчитала эта сама программа).
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 чисел (по крайней мере так посчитала эта сама программа).