Найти наибольший делитель натурального чисел 12 18
Паскаль
var a, b: integer;begin writeln('Введите a и b'); readln(a, b); while a<>b do begin if a>b then a:=a-b else b:=b-a end; write('Н0Д=',a)end. Решение
НОД(18/12) = НОД(12/6) = НОД(6/0)
ОТВЕТ: 6