Pascal.

Даны четыре натуральных числа. Найти наименьшее общее кратное (НОК) для этих четырех чисел. Поиск НОК двух чисел оформить функцией.

Question

Информатика

Ефрем

2 марта, 08:58

Pascal.

Даны четыре натуральных числа. Найти наименьшее общее кратное (НОК) для этих четырех чисел. Поиск НОК двух чисел оформить функцией.

+2

Ответы (1)

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

Лавруша · Answer 1

Var a, b, c, d, x, y: longint;

function NOD (a, b:integer) : integer;

begin

while (a0) and (b0) do

if a>=b then a: = a mod b

else b: = b mod a;

NOD:=a+b;

end;

function NOK (a, b:integer) : integer;

begin

NOK:=a*b div NOD (a, b)

end;

Begin

Read (a, b, c, d) ;

x:=NOK (a, b) ;

y:=NOK (c, d) ;

Writeln (NOK (x, y)) ;

end.

Pascal.Даны четыре натуральных числа. Найти наименьшее общее кратное (НОК) для этих четырех чисел. Поиск НОК двух чисел оформить функцией.

Pascal.

Даны четыре натуральных числа. Найти наименьшее общее кратное (НОК) для этих четырех чисел. Поиск НОК двух чисел оформить функцией.