// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=8; var a:=new real[n,n]; var k:=1; for var i:=0 to n-1 do for var j:=0 to n-1 do begin if i.IsEven then a[i,n-1-j]:=k else a[i,j]:=k; k+=1 end; a.Println(3,0) end.
int Socr(long long int a, long long int b, long long int *p, long long int *q) { long long int d; int c = 0; if (a) { if((float)a/b<0) { if(a<0) a=-a; if(b<0) b=-b; c = 1; } for(d = (a>b?b:a); (a%d!=0||b%d!=0); d--); if (c) *p = -a / d; else *p = a / d; *q = b / d; } else { *p = 0; *q = 1; } return 0; }
int main(int argc, char *argv[]) { long long int a = 1, b, p = 1, q = 1; for(b = 2; b < 21; b++) { printf("%lli/%lli + 1/%d = ",p,q,b); Socr(p*b+q,q*b,&p,&q); printf("%lli/%lli\n",p,q); } getch(); }
write('имя');
end.