Написать программу в паскале Написать программу: даны два натуральных числа а и b. Требуется определить наибольший общий делитель трех величин: а + b, а2 + b2, а • b. Можно записать как НОД(а + b, а2 + b2, а • b).

Предыдущий
вопрос Следующий
вопрос

program GCD
va
a, b, sum, sqrSum, mult, result: integer
function GCDFunc(a, b: integer): integer
begi
if b = 0 the
GCDFunc :=
els
GCDFunc := GCDFunc(b, a mod b)
end
begi
writeln('Введите два натуральных числа:')
readln(a, b)
sum := a + b
sqrSum := sqr(a) + sqr(b)
mult := a * b
result := GCDFunc(sum, sqrSum)
result := GCDFunc(result, mult)
writeln('Наибольший общий делитель трех величин: ', result)
end.

Программа сначала запрашивает у пользователя два натуральных числа, затем вычисляет их сумму, квадраты суммы и произведение. Далее находит наибольший общий делитель трех величин: суммы, квадратов суммы и произведения, используя функцию GCDFunc. Результат выводится на экран.