Baedgak 2 ноября 2019 в 10:25
Pascal.
Ввести с клавиатуры 2 натуральных числа – N и M. Проверить, являются ли они взаимно простыми (то есть, не имеют общих делителей кроме единицы). В качестве ответа вывести слово YES или NO.
Pascal.
Ввести с клавиатуры 2 натуральных числа – N и M. Проверить, являются ли они взаимно простыми (то есть, не имеют общих делителей кроме единицы). В качестве ответа вывести слово YES или NO.
Var
n,m:integer;
begin
write(N=);
readln(n);
write(M=);
readln(m);
while nlt;gt;m do
if n gt; m then
n := n - m
else
m := m-n;
if n = 1 then
write(YES)
else
write(NO);
end.
n,m:integer;
begin
write(N=);
readln(n);
write(M=);
readln(m);
while nlt;gt;m do
if n gt; m then
n := n - m
else
m := m-n;
if n = 1 then
write(YES)
else
write(NO);
end.
Компьютеры и вычисления
17
10
Для комментирования необходимо зарегистрироваться на сайте