3 bloklu olup istediğimiz blokta kırılan 12*42=24*21 eşitliğini yazan program.

deliman17.11.2008 - 18:03
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

Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
3 bloklu olup istediğimiz blokta kırılan 12*42=24*21 eşitliğini yazan program.
3 bloklu olup istediğimiz blokta kırılan 12*42=24*21 eşitliğini yazan program.
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2