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

Question

Информатика

Наташа

1 января, 14:56

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

+3

Ответы (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.