Uses
GraphABC;
begin
Window.Init(0, 0, 300, 300, clWhite);
window.CenterOnScreen();
Pen.Color := clSilver;
Pen.Width := 3;
Brush.Style := bsGradient;
Brush.Color := clBlack;
Brush.GradientSecondColor := clWhite;
Rectangle(50, 50, 250, 250);
end.
#include <iostream>
int main() {
int n;
std::cin >> n;
int i = 2;
while (n % i > 0) ++i;
std::cout << i;
return 0;
}
Исходя из графика
2х - уравнение первой прямой
x/2 - уравнение второй прямой
(x+3)^2 + (y+3)^2 = 9 - уравнение окружности
x = int(input("Enter x "))
y = int(input("Enter y "))
if (((x+3)**2)+((y+3)**2) < 9.0) and ((y > 2*x) or (y < x/2)):
print("Принадлежит")
else:
print("Не принадлежит")
Пример, когда лучше сначала подумать, а потом писать программу.
Если число делится одновременно на 5 и 21, то оно делится и на их произведение, т.е. на 105.
Количество таких чисел на указанном интервале может быть найдено как
Здесь "скобки" означают операцию взятия целой части.
Т.е. ответ уже получен, но раз требуется программа, то можно её написать так:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln((1000-105) div 105 + 1)
end.