На языке программирования Pascal создать программу нахождения наибольшего общего делителя (НОД)
На языке программирования Pascal создать программу нахождения наибольшего общего делителя (НОД)
Гость
Ответ(ы) на вопрос:
Гостьалгоритм еквлида
var x,y:integer;
begin
read(x);//первое число
read(y);//второе число
while((x-y)>0 )or((y-x)>0) do
if x>y then x:=x-y
else y:=y-x;
writeln(x);
end.
Не нашли ответ?
Похожие вопросы