Question

Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования
Паскаль для решения следующей задачи:
НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ (сокращённо НОД) двух целых чисел Х и Y. КРОМЕ этого, ВАША ПРОГРАММА не должна вычислять НОД, если введено хотя бы одно отрицательное число.

Answer 1

Var x,y,a,b:integer;
begin
write('x, y:');
readln(x,y);
if (x>0)and(y>0) then
 begin
 a:=x; b:=y;
 while a<>b do
       if a>b then a:=a-b else b:=b-a;
 writeln('НОД(',x,',',y,') = ',a);
 end
else writeln('Ошибка ввода');
end.

Пример:
x, y:
50 125
НОД(50,125) = 25