Question

Помогите написать программу для нахождения НОД ABC Pascal

Answer 1

var
  a,b:integer;
begin
  Read(a,b);
  while a <> b do
    if a > b then a := a - b
    else b := b - a;
  Writeln(a)
end.

Answer 2

Спасибо проверил 100% верно работает лайк и УДАЧИ!

Answer 3

В следующих вопросах

Answer 4

Еще бы алгоритм Евклида не работал! Он тысячелетиями проверен)))

Answer 5

понятно

Answer 6

var a,b,nod:integer;
begin
readln(a,b);
if a>=b then nod:=a mod b else nod:=b mod a;
writeln(nod)
end.