Pascal. Вводится 2 естественных числа. Вывести их НОК.Помогите пожалуйста!

Pascal. Вводится 2 естественных числа. Вывести их НОК.
Помогите пожалуйста!

Задать свой вопрос
2 ответа
Var
a, b, nok: integer;
begin
readln (a, b);
nok:=(a*b);
while alt;gt;b do
begin
if agt;b then a:=a-b else b:=b-a;
end;
nok:=nok div a;
write (nok);
end.
//алгоритм Евклида
var
a, b: integer;

function NOD (p1, p2: integer):integer;
begin 
  while p1lt;gt;p2 do   
     if p1gt;p2 then p1:=p1-p2 else p2:=p2-p1;NOD:=p1;
end;

function NOK (p1, p2: integer):integer;
begin
  NOK:=(p1*p2) div NOD(p1, p2);
end;

begin
readln (a, b);
writeln ('НОК a, b = ', NOK(a, b));
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт