Вопрос от пользователя: Матвейка
Даны 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
