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

Question

Прокофий

18 мая, 21:54

+4

Ответы (2)

Знаете ответ?

Федосей · Answer 1

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.

Яня · Answer 2

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.