Pascal.

Ввести с клавиатуры 2 натуральных числа - N и M. Проверить, являются ли они взаимно простыми (то есть, не имеют общих делителей кроме единицы). В качестве ответа вывести слово YES или NO.

Question

Информатика

Евдоким

11 декабря, 05:58

Pascal.

Ввести с клавиатуры 2 натуральных числа - N и M. Проверить, являются ли они взаимно простыми (то есть, не имеют общих делителей кроме единицы). В качестве ответа вывести слово YES или NO.

+2

Ответы (1)

Знаете ответ на вопрос?

Эллочка · Answer 1

Var

n, m:integer;

begin

write ('N=') ;

readln (n) ;

write ('M=') ;

readln (m) ;

while nm do

if n > m then

n : = n - m

else

m : = m-n;

if n = 1 then

write ('YES')

else

write ('NO') ;

end.