алгоритм нод

Ответ от Влад Симкин[гуру]
ну суть мат модели уже описана. вот алгоритм на естественном языке
пока (a<>0) и (b<>0)
если a>b тогда a:=a mod b
иначе b:=b mod a;
nod:=a+b;
а вот код на паскале
program imya;
uses CRT;
var a,b,nod:word;
begin
writeln('vvedite a i b');
readln(a,b);
while (a<>0) and (b<>0) do
if a>b then a:=a mod b else b:=b mod a;
nod:=a+b;
writeln(nod);
readkey;
end.
Источник: опыт! уважайте отвечающих! Выбирайте ЛО сами! Не доводите вопрос до голосования!