Перевести программу с языка Си на язык Паскаль #include
#include
#define nx (25)
#define x(a,b) b a
x(main,int)() { x(x(x([nx],[nx]),a),int);x(n,int);x(r,int);x(c,int);x(("n? "),printf);
x(("%d",&n),scanf);x((r=0;r < n ;++r),for) { x((c=0;c < n;++c),for) { x((r==c),if) a[r][c] = r;
else a[r][c]=0;printf("%""4""d",a[r][c]); } puts(""); } return(0); }

LILIAGNATIV    1   30.11.2021 10:29    0