Здесь пишет что НОД=0, что не так const m: array [1 ... 4] of integer = (76, 126, 216, 252) ; var i, x, y, z: integer; procedure nod (a, b: integer; var c: integer) ; begin while ab do if a>b then a:=a-b else b:=b-a; c:=a end; begin x:=m[1];
Ответы (1)