Question

Помогите создать программу для нахождения НОК ABC Pascal

Answer 1

var
  a,b,c,NOK:integer;
begin
  Read(a,b);
  if a = b then NOK := a
  else begin
    c := a * b;
    repeat
      if a > b then a := a - b else b := b - a;  
    until a = b;
    NOK := c div a
  end;
  Writeln(NOK)
end.

Answer 2

Спасибо

Answer 3

Удачи в других вопросах!