Регистрация
danielan2003
13.02.2023 12:06
Информатика
Есть ответ 👍

Написать программу (паскаль) и составить Блок - схему.

206
332
Посмотреть ответы 1

Ответы на вопрос:

mmmkkk3
mmmkkk3
4,6(31 оценок)
Вы просто забыли использовать процедуру, которую описали. она есть, но вы ее не использовали, а в "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.

Популярно: Информатика