Question

How to find the smallest number that is evenly divisible by all of the numbers from 1 to 10 in Pascal

Answer 1

program LCMCalculator;

// Least Common Multiple (LCM)
function LCM(a, b: integer): integer;
var
  lcmval: integer;
begin
  if a > b then
    lcmval := a
  else
    lcmval := b;

  while true do
  begin
    if (lcmval mod a = 0) and (lcmval mod b = 0) then
    begin
      LCM := lcmval;
      exit;
    end;
    inc(lcmval);
  end;
end;

var
  result, i: integer;

begin
  result := 1;

  for i := 1 to 10 do
    result := LCM(result, i);

  writeln('LCM of numbers 1 to 10 is: ', result);
end.



(*
run:

LCM of numbers 1 to 10 is: 2520

*)

 

70+ SQL courses for beginners and professionals