189 и 475 взаимно простые числа
Числа 189 и 475 имеют только один общий делитель — число 1. Такие числа называют взаимно простыми числами.
Как найти наибольший общий делитель для 189 и 475
Разложим на простые множители 189
189 = 3 • 3 • 3 • 7
Разложим на простые множители 475
475 = 5 • 5 • 19
Выберем одинаковые простые множители в обоих числах.
Одинаковые простые множители отсутствуют
Находим произведение одинаковых простых множителей и записываем ответ
НОД (189; 475) = 1
НОК (Наименьшее общее кратное) 189 и 475
Наименьшим общим кратным (НОК) 189 и 475 называется наименьшее натуральное число, которое само делится нацело на каждое из этих чисел (189 и 475).
НОК (189, 475) = 89775
ЧАСТНЫЙ СЛУЧАЙ!
189 и 475 взаимно простые числа
Так как взаимно простые числа не имеют общих простых делителей, то их наименьшее общее кратное равно произведению этих чисел.
НОК (189, 475) = 189 • 475 = 89775
Как найти наименьшее общее кратное для 189 и 475
Разложим на простые множители 189
189 = 3 • 3 • 3 • 7
Разложим на простые множители 475
475 = 5 • 5 • 19
Выберем в разложении меньшего числа (189) множители, которые не вошли в разложение
3 , 3 , 3 , 7
Добавим эти множители в разложение бóльшего числа
5 , 5 , 19 , 3 , 3 , 3 , 7
Полученное произведение запишем в ответ.
НОК (189, 475) = 5 • 5 • 19 • 3 • 3 • 3 • 7 = 89775
иначе не сможем выполнить 1 и 2 пункт задания.
Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
Исправляем N:N div 10; на N:= N div 10;
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193
Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do
После всех исправлений код программы стал таким:
var
N, k: integer;
begin
readln(N);
k := 9;
while N > 10 do
begin
if (N mod 10 < k) then k := N mod 10;
N := N div 10;
end;
write(k)
end.