Помогите пожалуйста!!! Напишите программу для нахождения наибольшего общего делителя двух чисел с использованием процедуры. Найт
Помогите пожалуйста!!! Напишите программу для нахождения наибольшего общего делителя двух чисел с использованием процедуры. Найти наибольший общий делитель для чисел 12, 24, 30, 48 и 51
<span>var a,b: integer; function NOD(x,y: integer): integer; begin; if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y; end; </span><span>begin; readln(a,b); writeln( 'НОД = ', NOD(a,b) ); end.</span> Такой вопрос уже был... на этом сайте