Question

Задание 1. Даны два числа a и b, не равные нулю одновременно. Найти

НОК(a,b) – наименьшее общее кратное.

Answer 1

Объяснение:

Var a,b,nod:integer;

Begin

write('введите a,b: ');readln(a,b);

While a<>b do

if a>b then a:=a-b

else b:=b-a;

Nod:=a;

writeln('HOK = ',(a*b) div nod);

readln

End.