3 bloklu olup istediğimiz blokta kırılan 12*42=24*21 eşitliğini yazan program.
uses crt;
var
i,j,a,b,c,d,e,f,sayac:integer;
begin
clrscr;
for i:=11 to 99 do begin
if(sayac>24)then break;
for j:=11 to 99 do
begin
a:=j div 10;
b:=j mod 10;
e:=b*10+a;
c:=i div 10;
d:=i mod 10;
f:=d*10+c;
if(i*j=e*f)and((i<>j)and(a<>b)and(c<>d))and(a<>d)then
begin
sayac:=sayac+1;
if(sayac<=24)then
writeln(' ',i,'*',j,'=',e,'*',f)
else if(sayac<=48)then begin
gotoxy(20,sayac-24);
writeln(' ',i,'*',j,'=',e,'*',f);end
else if(sayac<=72)then begin
gotoxy(40,sayac-48);
writeln(' ',i,'*',j,'=',e,'*',f);end;
end;
end;end;
readln;
end.
Linkback: https://www.buyuknet.com/3-bloklu-olup-istedigimiz-blokta-kirilan-12422421-esitligini-yazan-program-t8631.0.html