Ответы на вопрос:
Вы просто забыли использовать процедуру, которую описали. она есть, но вы ее не использовали, а в "z" изначально лежит "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 a< > b do if a> b then a: =a-b else b: =b-a; c: =a end; begin x: =m[1]; for i: =2 to 4 do begin y: =m[i]; nod(x,y,z); x: =z end; writeln ('нод=', x) end.
Популярно: Информатика
-
GrigoriyPokoti18.10.2020 12:45
-
mon1309.09.2021 15:13
-
ГретхенМарго23.08.2021 21:10
-
yexevosux16.11.2022 11:32
-
redridinghood106.09.2022 01:44
-
Викендр06.10.2020 09:26
-
popkaf19.06.2021 11:32
-
usett19.09.2022 07:36
-
Kg113.04.2021 08:23
-
turabovrenat21.09.2020 10:39