Напишите программу (в паскале авс), которая находит НОК (наименьшее общее кратное) двух чисел, введённых с клавиатуры.

Question

Информатика

Каллиста

30 марта, 17:05

Напишите программу (в паскале авс), которая находит НОК (наименьшее общее кратное) двух чисел, введённых с клавиатуры.

+1

Ответы (1)

Знаете ответ на вопрос?

Вит · Answer 1

Для решения этой задачи воспользуемся формулой:

а*б=НОД (а, б) * НОК (а, б)

var a, b:longint;

function nod (a, b:longint) : longint;

begin

if a = 0 then

nod:=b else

if b=0 then

nod:=a else

if a>b then

nod:=nod (a mod b, b) else

nod:=nod (a, b mod a) ;

end;

Begin

read (a, b) ;

writeln ((a*b) div nod (a, b)) ;

End.