Question

решите пожалуйста задачу на PascalABC

1. Напишите функцию поиска НОД двух целых чисел. Примените составленную функцию для поиска наибольшего общего делителя N целых чисел (2 < N < 10).

Answer 1

// файл и картинка посмотреть

4b35a4d3d48840e01bb7df7e24999bb8.pas

Answer 2

var s := a.JoinIntoString(', ');

Answer 3

Так короче. Вместо кода с 20 по 24 строку.