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

Question

Информатика

Ростислава

26 декабря, 04:57

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

+2

Ответы (1)

Знаете ответ на вопрос?

Ларуня · 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.