Вопрос, который вызвал трудности
Написать программу: Найти НОД двух чисел (алгоритм Евклида).
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Написать программу: Найти НОД двух чисел (алгоритм Евклида).
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Program zadacha;
Label 1,2;
var
x,у,m,n,c:integer;
begin
writeln (‘введите натуральные числа n и m’);
readln (n, m);
x:=m;
y:=n;
1: if x=y then goto 2;
if x>y then x:=x-y else y:=y-x;
goto 1;
2: c:=x;
writeln(‘НОД двух чисел’,m,’и’,n,’=’,c);
readln;
end.
Label 1,2;
var
x,у,m,n,c:integer;
begin
writeln (‘введите натуральные числа n и m’);
readln (n, m);
x:=m;
y:=n;
1: if x=y then goto 2;
if x>y then x:=x-y else y:=y-x;
goto 1;
2: c:=x;
writeln(‘НОД двух чисел’,m,’и’,n,’=’,c);
readln;
end.