Даны натуральные числа x и y. вычислите их нок. для паскаля! надо

ImVadimka ImVadimka    1   27.02.2019 19:00    4

Ответы
maksisenko6451 maksisenko6451  06.06.2020 21:02

var x,y,nod,nok:longint;

 

begin

 

read(x,y);

 

a:=x; b:=y;

while (a>0) and (b>0) do

if a>b then a:=a mod b

else b:=b mod a;

nod:=a+b;

nok:=(x div nod)*y;

 

write(nok);

 

end;

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика