Question

Составьте программу нахождения наименьшего общего кратного(НОК) двух чисел,используя формулу: А*В=НОД(А,В)*НОК(А,В). На паскале

Answer 1

Var A,B:integer;beginreadln(a,b); while A<>B do  begin   if a>b then  a:=a-b  else b:=b-a;  end;  writeln(B) end.
(строчные\прописные без разницы) 

Answer 2

Программа нахождения наименьшего общего кратного (НОК) двух чисел на языке программирования Pascal может выглядеть следующим образом:

program NOK;
var
  a, b, nod, nok: integer;

function FindNOD(a, b: integer): integer;
begin
  while a <> b do
  begin
    if a > b then
      a := a - b
    else
      b := b - a;
  end;
  FindNOD := a;
end;

begin
  write('Введите первое число: ');
  readln(a);
  write('Введите второе число: ');
  readln(b);

nod := FindNOD(a, b);
  nok := (a * b) div nod;

writeln('Наименьшее общее кратное чисел ', a, ' и ', b, ' равно ', nok);
end.

Эта программа сначала запрашивает у пользователя два числа, затем находит их наибольший общий делитель (НОД) с помощью функции `FindNOD`. Затем программа использует формулу `А*В=НОД(А,В)*НОК(А,В)` для вычисления наименьшего общего кратного (НОК) и выводит результат на экран.

Это простая программа нахождения НОК на языке Pascal.