Предмет: Информатика,
автор: Kseееniya
Выполнив предыдущее задание, проведите трассировку алгоритма Евклида для нахождения НОД чисел 128 и 56
Ответы
Автор ответа:
27
Извиняюсь за полусишный код
procedure swap(var a:integer; var b;integer)
var c:integer;
begin
c := a; a := b; b := c;
end;
function nod(a, b:integer):integer;
begin
while b <> 0 do
begin
writeln(a, ' ', b); // тут трассировка выводится
a = a mod b; swap(a, b);
end
end;
begin
writeln(nod(128,56));
end.
procedure swap(var a:integer; var b;integer)
var c:integer;
begin
c := a; a := b; b := c;
end;
function nod(a, b:integer):integer;
begin
while b <> 0 do
begin
writeln(a, ' ', b); // тут трассировка выводится
a = a mod b; swap(a, b);
end
end;
begin
writeln(nod(128,56));
end.
Похожие вопросы
Предмет: Русский язык,
автор: Воздух5
Предмет: Русский язык,
автор: Arishiba383424
Предмет: Русский язык,
автор: угур8
Предмет: Химия,
автор: jdvsgshs
Предмет: Музыка,
автор: xddd24