Написать программу на паскале : ) составить программу, проверяющую, являются ли данные три числа взаимно простыми. использовать подпрограмму.

258

383

Посмотреть ответы 2

Ответы на вопрос:

yubloh

Информатика

4,6(13 оценок)

Числа являются взаимно простыми, если их наибольший общий делитель равен 1. используя это свойство, напишем программу: var a, b, c: integer; {нод двух чисед} function gcd(a, b: integer): integer; var t: integer; begin while b > 0 do begin t : = b; b : = a mod b; a : = t; end; gcd : = a; end; {проверка трех чисел на взаимную простоту} function iscoprime(a, b, c: integer): boolean; begin iscoprime : = gcd(gcd(a, b), c) = 1; end; begin read(a, b, c); if iscoprime(a, b, c) then write('числа взаимно простые') else write('числа не являются взаимно простыми'); end.