ГДЗ по Информатике 9 класс. Семакин § 16 Алгоритм Евклида
2. Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(А, В, С) * НОД(НОД(А, В), С).
Ответ
Program zz1;
Var a,b,c:integer; // задаем переменные целого типа
Function Nod(a,b:integer):integer; // вспомогательный алгоритм
Begin
While a<>b do // организуем цикл, используем алгоритм Евклида
if a>b // проверяем условие, если первое число больше второго
then a:=a-b // то, от первого отнимаем второе
else b:=b-a; // иначе, от второго отнимаем первое
Nod:=a; // в связи с тем, что по окончании цикла два числа сравняются, ответом является любое из них
End;
begin
write(‘ Введите три числа ‘); // вводим с клавиатуры три заданных числа
readln(a,b,c);
writeln(‘ НОД трех чисел = ‘, Nod(Nod(a,b),c));
end.