uses crt;
var
f,i,z,k,l,r,a: byte;
begin
for f:=1 to 9 do
for i:=0 to 9 do
for z:=0 to 9 do
for k:=0 to 9 do
for l:=1 to 9 do
for r:=0 to 9 do
for a:=0 to 9 do
if (fi) and (fz) and (fk) and (fl) and (fr) and (fa) and
(iz) and (ik) and (il) and (ir) and (ia) and
(zk) and (zl) and (zr) and (za) and
(kl) and (kr) and (ka) and
(lr) and (la) and
(ra) and
(f*10000+i*1000+z*100+i*10+k=0.5*(l*100000+i*10000+r*1000+i*100+k*10+a)) then
writeln(f,i,z,i,k,'=0.5*',l,i,r,i,k,a);
end.
Комментарии
62125 = 0.5 * 124250
uses crt;
var
f,i,z,k,l,r,a: byte;
begin
for f:=1 to 9 do
for i:=0 to 9 do
for z:=0 to 9 do
for k:=0 to 9 do
for l:=1 to 9 do
for r:=0 to 9 do
for a:=0 to 9 do
if (fi) and (fz) and (fk) and (fl) and (fr) and (fa) and
(iz) and (ik) and (il) and (ir) and (ia) and
(zk) and (zl) and (zr) and (za) and
(kl) and (kr) and (ka) and
(lr) and (la) and
(ra) and
(f*10000+i*1000+z*100+i*10+k=0.5*(l*100000+i*10000+r*1000+i*100+k*10+a)) then
writeln(f,i,z,i,k,'=0.5*',l,i,r,i,k,a);
end.