Проверить являются ли два числа a и b взаимно простыми. Два числа называются взаимно простыми, если их наибольший общий делитель равен 1. Протестировать программу для следующих исходных данных a) a=5 b=100 b) a=3 b=100 c) a=11 b=98

Question

Информатика

Анисья

19 января, 00:58

Проверить являются ли два числа a и b взаимно простыми. Два числа называются взаимно простыми, если их наибольший общий делитель равен 1. Протестировать программу для следующих исходных данных a) a=5 b=100 b) a=3 b=100 c) a=11 b=98

+3

Ответы (1)

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

Альбинка · Answer 1

var

a, b:integer;

begin

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

while (a 0) and (b 0) do

if a > = b then

a : = a mod b

else

b : = b mod a;

a : = a + b;

if a = 1 then

writeln ('Числа являются взаимнопростыми')

else

writeln ('Числа не являются взаимнопростыми')

end.