home *** CD-ROM | disk | FTP | other *** search
/ Team Palmtops 17 / Palmtops_numero17.iso / pc / Java / PocketC / exemple.pc < prev    next >
Encoding:
Text File  |  2000-11-30  |  236 b   |  16 lines
  1. // Exemple
  2. main () {
  3.   int a,b,n,p,q,r;
  4.   a=(int)gets("Entier 1");
  5.   b=(int)gets("Entier 2");
  6.   p=b;
  7.   r=a;
  8.   while (r!=0) { 
  9.     n=p;
  10.     p=r;
  11.     q=n/p;
  12.     r=n-q*p;
  13.   }
  14.   puts("\nPGCD="+p);
  15.   puts("\nPPCM="+(a*b/p));
  16. }