Ответ:
var
k, l, n: integer;
function nod (var a,b: integer): integer;
var c: integer;
begin
repeat
if a > b then
a := a mod b
else
b := b mod a;
until (a = 0) or (b = 0);
nod := a + b;
end;
writeln ('Введите два числа: ');
readln (k, l);
n := nod (k, l);
writeln ('НОД = ', n);
readln
end.
Объяснение:
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var
k, l, n: integer;
function nod (var a,b: integer): integer;
var c: integer;
begin
repeat
if a > b then
a := a mod b
else
b := b mod a;
until (a = 0) or (b = 0);
nod := a + b;
end;
begin
writeln ('Введите два числа: ');
readln (k, l);
n := nod (k, l);
writeln ('НОД = ', n);
readln
end.
Объяснение: