Задание 1. Даны два числа a и b, не равные нулю одновременно. Найти
НОК(a,b) – наименьшее общее кратное.
Ответы
Ответ дал:
0
Объяснение:
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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад