помогите, пожаалуйста! Даны натуральные числа A и B. Найти их наименьшее общее кратное,...

Question

помогите, пожаалуйста!

Даны натуральные числа A и B. Найти их наименьшее общее кратное, определив функцию для расчета наибольшего общего делителя двух натуральных чисел, используя алгоритм Евклида.

РЕШИТЬ В ПАСКАЛЕ БЕЗ ВСЯКИХ СЛОЖНЫХ ПРОГРАММНЫХ ШТУЧЕК, Т.Е НА УРОВНЕ 10 КЛАССА!

спасибо:3*

Answer 1

 

 Формула нахождения НОК двух чисел  A и B 

 

 1) НОК=(A*B) / НОД(A,B)

 

 

Program FindNOK;
Uses Crt;
var n,m,res,nok:integer;

function evklid( a, b: longint): longint;
begin
while (a <> 0) and (b <> 0) do
if a >= b then
a:= a mod b
else
b:= b mod a;
evklid:= a + b;
end;

begin
clrscr;
writeln('Введите A и B');
readln(M, N);
res:= (Evklid(n,m));
nok:= (m*n) div res;
writeln('NOK=',nok);

readkey;
end.