Даны n чисел. определить являются ли они взаимно простыми т.е имеют общий делитель отличный от единицы

Function gcd(a: integer; b: integer): integer; // нахождение нод var   i, a1, b1: integer; begin   a1 : = a; b1 : = b;   while b1 < > 0 do   begin       a1 : = a1 mod b1;       i : = b1; b1 : = a1; a1 : = i   end;   result : = a1 end; var   m, n, k: integer; begin   writeln('введите пару целых чисел');   readln(m, n);   k : = gcd(m, n);   if k = 1 then writeln('числа взаимно простые')   else writeln('числа не являются взаимно простыми, нод=', k) end. тестовое решение: введите пару целых чисел 465 532 числа взаимно простые введите пару целых чисел 13440 6930 числа не являются взаимно простыми, нод=210

Var   a, b, i: integer;   bool: boolean; begin   readln(a, b);   for i : = 2 to min(a, b) do     if ((a mod i = 0) and (b mod i = 0)) then       bool : = true;   if (bool) then     writeln('no')   else     writeln('yes'); end.

Program sptrap; var y , x : integer; begin writeln ('введи переменную x'); readln ( x); y: =0 у=(х+1)/2х; writeln('y=',y); end1. начало алгоритма 2. ввод (х) 3. если (х не равно 0) и (а не равно нулю) 4. y: = (х+1)/2х. 5. иначе 6. вывод ('функция не определена') 7. конец алгоритма  1. начало алгоритма 2. объявление переменных 3. объявление  (х) 4. если (х не равно 0) и (x не равно нулю) 5. y: = (х+1)/2х. 6. иначе 7. вывод ('функция не определена') или ('y=',y) 8. конец алгоритма 

Выберите несколько из 4 вариантов ответа: 1) квадрат - это четырёхугольник с четырьмя равными углами и сторонами.2) p= (a+b)*2.3) s=a*a.4) s=v*t. 2для перехода со второго уровня списка на первый, с третьего на второй и т. д. выберите несколько из 3 вариантов ответа: 1) нажимать комбинацию клавиш shift+tab.2) нажать клавишу tab.3) нажимать клавишу enter. 3в маркированном списке выберите несколько из 4 вариантов ответа: 1) небольшие графические изображения. 3) символы.2) цифры. 4) буквы. 4укажите верные утверждения: выберите несколько из 4 вариантов ответа: 1) нумерованный список используется в том случае, если важен порядок элементов.2) нумерованный список используется в том случае, если не важен порядок следования элементов.3) при создании новых, удалении или перемещении существующих элементов нумерованного списка вся нумерация спискаменяется вручную.4) маркированный список используется в том случае, если не важен порядок элементов. 5для перехода на следующий элемент списка выберите один из 3 вариантов ответа: 1) нажать клавишу enter.2) нажимать комбинацию клавиш shift+tab.3) нажать клавишу tab. 6продолжите предложение "многоуровневый список – ".выберите один из 3 вариантов ответа: 1) перечень предметов, в котором каждый элемент имеет свой порядковый номер.2) перечень элементов, в котором каждая из строк списка может включать подпункты различных уровней.3) перечень элементов, в котором не каждая из строк списка может включать подпункты различных уровней. 7списки делятся выберите один из 3 вариантов ответа: 1) маркированные, многоуровневые и одноуровневые.2) нумерованные, маркированные и многоуровневые.3) нумерованные, маркированные и одноуровневые. 8продолжите предложение " модели – ".выберите один из 3 вариантов ответа: 1) модели, которые построены при чисел.2) модели, которые построены при понятий и формул.3) модели, которые построены с использованием слов-профессионализмов. 9укажите последовательность действий для вставки многоуровневого списка.укажите порядок следования всех 3 вариантов ответа: 2 в группе абзац выбрать значок «многоуровневый список.1 выбрать вкладку главная.3 из открывшегося меню выбрать необходимый элемент. 10для перехода с первого уровня списка на второй, со второго на третий и т. д. выберите один из 3 вариантов ответа: 1) нажать клавишу tab.2) нажать клавишу enter.3) нажимать комбинацию клавиш shift+tab.