напишите логическую функцию которая определяет являются ли два переданные ей числа взаимно простыми, то есть, не имеющими общих делителей, кроме 1. (На языке Паскаль)
Аноним:
Язык программирования забыли указать Опять напишут Вам ответ на С# или Ruby...
Ответы
Ответ дал:
50
function IsPrimes(m,n:longint):boolean;
begin
while m <> n do
if m > n then m := m - n else n := n - m;
IsPrimes:=(m=1)
end;
{ пример вызова функции }
var
a,b:longint;
begin
Write('Введите пару целых чисел: ');
Read(a,b);
if IsPrimes(a,b) then Writeln('Числа взаимно простые')
else Writeln('Числа не взаимно простые')
end.
begin
while m <> n do
if m > n then m := m - n else n := n - m;
IsPrimes:=(m=1)
end;
{ пример вызова функции }
var
a,b:longint;
begin
Write('Введите пару целых чисел: ');
Read(a,b);
if IsPrimes(a,b) then Writeln('Числа взаимно простые')
else Writeln('Числа не взаимно простые')
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад