Информатика, опубликовано 2018-08-22 20:15:10 by Гость

Написать программу нахождения наибольшего общего делителя (НОД) двух натуральных чисел.а)использовать оператор repeatб) использовать оператор while

Ответ оставил Гость

var a,b: integer;
function NOD(x,y: integer): integer;
begin
if x0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
begin
readln(a,b);
writeln( НОД = , NOD(a,b) );
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.