Помогите создать программу для нахождения НОК ABC Pascal
Помогите создать программу для нахождения НОК ABC Pascal
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы