помогите, пожаалуйста!
Даны натуральные числа A и B. Найти их наименьшее общее кратное, определив функцию для расчета наибольшего общего делителя двух натуральных чисел, используя алгоритм Евклида.
РЕШИТЬ В ПАСКАЛЕ БЕЗ ВСЯКИХ СЛОЖНЫХ ПРОГРАММНЫХ ШТУЧЕК, Т.Е НА УРОВНЕ 10 КЛАССА!
спасибо:3*
Формула нахождения НОК двух чисел 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
