Написать программу в паскале Написать программу: даны два натуральных числа а и b. Требуется определить наибольший общий делитель трех величин: а + b, а2 + b2, а • b. Можно записать как НОД(а + b, а2 + b2, а • b).
Написать программу в паскале Написать программу: даны два натуральных числа а и b. Требуется определить наибольший общий делитель трех величин: а + b, а2 + b2, а • b. Можно записать как НОД(а + b, а2 + b2, а • b).
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
a, b, sum, sqrSum, mult, result: integer;
function GCDFunc(a, b: integer): integer;
begin
if b = 0 then
GCDFunc := a
else
GCDFunc := GCDFunc(b, a mod b);
end;
begin
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. Результат выводится на экран.