СРОЧНО!!Напишите функцию в Паскале,которая вычисляет наименьшее общее кратное 2-ух чисел

Безотлагательно!!Напишите функцию в Паскале,которая вычисляет меньшее общее кратное 2-ух чисел

Задать свой вопрос
1 ответ
Напишу лучше на сто процентов, а то есть уникумы, которые обожают отмечать "неполное решение".
var m,n,a,b:integer; nok:real;
begin
  readln(m,n);
  a:=m;
  b:=n;
while mlt;gt;n do
  if mgt;n then m:=m-n
    else n:=n-m;
  nok:=a*b/m;
  writeln(nok);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт