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

Question

Павлюкаша

9 января, 07:55

+5

Ответы (2)

Знаете ответ на вопрос?

Валентион · 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

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.