3 blok halinde 12*42=21*24 şeklindeki eşitliği yazan program.

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

Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
3 blok halinde 12*42=21*24 şeklindeki eşitliği yazan program.
3 blok halinde 12*42=21*24 şeklindeki eşitliği yazan program.
(Ortalama: 5 üzerinden 2 - 5 Oy)
5