Question

Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.

Answer 1

Программа с НОД
var t,t1,x,y,z:integer;
Function NOD(a, b: integer): integer;
Begin  If a=b then NOD:=a 
else if a>b then NOD:=NOD(a-b, b) 
Else NOD:=NOD(a, b-a);
End;
begin
writeln('Введите 2 числа');
readln(x,y);
t:=NOD(X,Y);
writeln(t);
end.