Определите сколько существует натуральных чисел, таких, что выполняются следующие условия: 1. искомые числа не должны превосходить данного n. 2. искомые числа должны делиться на данные числа a и b и не должны делиться на данное c (числа a, b и c - попарно взаимно простые). на паскале
- если число делится на a и b, оно делится на a×b;
- если число не превышает N, то m×a×b, где m=1,2,3... также не превышает N;
- если при этом число не делится на с, то a×b также не делится на с.
Следовательно, количество чисел, не превышающих N равно N div (a×b), где div - операция деления нацело.
Из этого количества нужно вычесть количество чисел, делящихся на c, т.е. N div (a×b×c)
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('N=');
var (a,b,c):=ReadInteger3('Введите через пробел a,b,c:');
Writeln(n div (a*b) - n div (a*b*c))
end.