Фрагмент

m:=an:=abs(b)нц пока ((m>0) и (n>0))    если (m>n)        то m:=mod(m,n)        иначе n:=mod(n,m)    всекцf:=m+n

даст значение f = 7 при:

нц пока ;

если (y>x) то y:=y–x иначе x:=x–y все;

нц пока (x<y);

если (y<x) то y:=y–x иначе x:=x–y все;

кц ,

можно скомпоновать тело алгоритма поиска НОД(x, y) в следующем порядке:

s:=0i:=1нц пока (i<4)       s:=s+i       i:=i+1кц

даст значение переменной s, равное:

х:=10i:=0нц пока (i<=10)      x:=x+5–i      i:=2*(i+1)кц

даст значение переменной x равное:

s:=0i:=1нц пока (i<5)      i:=i+1      s:=s+iкц

даст значение переменной s равное:

a[1,1] = –1; a[1,2] = 8; a[1,3] = 3;

a[2,1] = 7; a[2,2] = 2; a[2,3] = 2;

a[3,1] = 6; a[3,2] = 0; a[3,3] = 4

фрагмент

нц для i от 1 до div(n,2)    нц для j от 1 до n        с:=a[i,j]        a[i,j]=a[n–i,j]        a[n–i,j]=c    кцкц

даст значения:

s:=1p:=10нц пока (p>1)     s:=s+1     p:=mod(p,s)кц

вычисляет значения переменных s и p равные, соответственно:

а:=int(10.7)*mod(5,2)+div(10,5);

a:=max(mod(a,10),div(a,5))–int(a/5)

даст значение переменной a, равное:

а:=abs(–5)+int(1.1)*mod(1,1);

а:=min(a,div(a,4))*int(a/2)

даст значение переменной а, равное:

а:=div(3,4)*int(3.5)+abs(–4);

a:=mах(mod(a,10),div(a,2))*int(a/3)

даст значение переменной a, равное:

а:=abs(–7)+int(1.2)*div(6,3);

a:=min(div(a,8),mod(a,10))

даст значение переменной a, равное: