Задание:
Составьте пожалуйста программу определения наименьшего общего делителя двух натуральныхчисел
Решение:
Program a1; var m,n,p: longint; beginreadln (m,n); p: =m*n; while m <> n do beginif m>n then beginm: =m-nendelse beginn: =n-m; endend; writeln (p div m); end.
Знаете другой ответ?