3 blok halinde 12*42=21*24 şeklindeki eşitliği yazan program.
uses crt;
var
i,j,a,b,c,d,e,f,sayac:integer;
begin
clrscr;
for i:=11 to 99 do
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;
readln;
end.
Linkback: https://www.buyuknet.com/3-blok-halinde-12422124-seklindeki-esitligi-yazan-program-t8630.0.html