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.
Держи вводи 2 числа и находи нод
Объяснение:
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.