Создать программу для нахождения нок abc pascal

DementоR DementоR    3   13.07.2019 21:30    0

Ответы
lenapOLD lenapOLD  20.09.2020 09:16
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика