Задание 1. Даны два числа a и b, не равные нулю одновременно. Найти
НОК(a,b) – наименьшее общее кратное.
НОК(a,b) – наименьшее общее кратное.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Объяснение:
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.