сервис вопросов и ответовДаны n чисел. Определить являются ли они взаимно простыми т.е имеют общий делитель отличный от единицы
10-11 класс|
|
Каty
04 февр. 2017 г., 19:57:59 (7 лет назад)
олга15
04 февр. 2017 г., 20:28:19 (7 лет назад)
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.
Aidailesova21
04 февр. 2017 г., 23:11:14 (7 лет назад)
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
Ответить
Другие вопросы из категории
Читайте также
1.Дано двузначное число.Определить: a.какая из его цифр больше,первая или вторая; b. одинаковы ли его цифры. 2. Дано двухзначное число.
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
1)Найти 3 совершенное число(программа+блок схемы)
2)Определить 35 простое число(программа +блок схемы)
3)Дано:трехзначное число ,определить :является ли произведение его цифр трехзначным числом(программа+блок схемы)
Помогите пожалуйста!!
1) Ввести с клавиатуры стороны прямоугольника, вычислить площадь и вывести её на экран.
2) Ввести 2 числа. Определить являются ли они противоположными.
Из 16-ти чисел, спросите у пользователя ,сколько нужно проанализировать чисел, а затем запросите эти числа и сделайте для каждого вывод, является ли
оно четным или отрицательным.(Паскаль)
Или так: Из 16 -ти чисел,сделайте для каждого вывод,является ли оно четным или отрицательным .(Паскаль)
Помогите пожалуйста,оченьььь срочно надо!Буду благодарна за решение ,спасибо!!!!!!!
Вы находитесь на странице вопроса "Даны n чисел. Определить являются ли они взаимно простыми т.е имеют общий делитель отличный от единицы", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.