Пример, когда лучше сначала подумать, а потом писать программу. Если число делится одновременно на 5 и 21, то оно делится и на их произведение, т.е. на 105. Количество таких чисел на указанном интервале может быть найдено как Здесь "скобки" означают операцию взятия целой части. Т.е. ответ уже получен, но раз требуется программа, то можно её написать так:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016 begin Writeln((1000-105) div 105 + 1) end.
Если число делится одновременно на 5 и 21, то оно делится и на их произведение, т.е. на 105.
Количество таких чисел на указанном интервале может быть найдено как
Здесь "скобки" означают операцию взятия целой части.
Т.е. ответ уже получен, но раз требуется программа, то можно её написать так:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln((1000-105) div 105 + 1)
end.