При нахождении НОК программа неадекватно себя ведет. НОК верный только в случае, если у числа последняя цифра - 0. Подскажите, в чем проблема.
procedure TForm1.Button1Click(Sender: TObject);
begin
a := strtoint(edit1.Text);
b := strtoint(edit2.Text);
while a mod b <> 0 do
begin
a := a + a;
end;
showmessage(inttostr(a));
end;
P.S. edit1 и edit2 - числа, которые вводит пользователь
procedure TForm1.Button1Click(Sender: TObject);
begin
a := strtoint(edit1.Text);
b := strtoint(edit2.Text);
while a mod b <> 0 do
begin
a := a + a;
end;
showmessage(inttostr(a));
end;
P.S. edit1 и edit2 - числа, которые вводит пользователь