Ниже приведена программа, записанная на пяти языках программирования. s = int(input())
k = int(input())
A = int(input())
if s < A or k < 6:
print("ДА")
else:
print("НЕТ")

Было проведено 9 запусков программы, при которых в качестве значений
переменных s и k вводились следующие пары чисел:
(10, 12); (8, 10); (16, 2); (5, 15); (2, 9); (–10, 7); (–10, 12); (4, 1); (20, 8).
Укажите количество целых значений параметра А, при которых для
указанных входных данных программа напечатает «ДА» 5 раз.

1)#include <iostream>

using namespace std;

int main() {

 long n;

 float vit=0;

 cin>>n;

 for(long i=2;i<n;i++){

   vit=vit+1/(i*(i-1));

 }

 cout<<vit;

}

2)#include <iostream>

using namespace std;

int main() {

 long n;

 float vit=0;

 cin>>n;

 for(long i=2;i<n;i++){

   vit=vit+((-1)^n/n);

 }

 cout<<1-vit;

}

3)#include <iostream>

using namespace std;

int main() {

 long n;

 float vit=1;

 cin>>n;

 for(long i=2;i<n;i++){

   vit=vit*(1+1/n^2);

 }

 cout<<1-vit;

}

Объяснение:

Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.

// PascalABC.NET 3.0, сборка 1088
var
  x1,x2,y1,y2,r1,r2:real;
begin
  Write('Введите координаты первой точки: '); Read(x1,y1);
  Write('Введите координаты второй точки: '); Read(x2,y2);
  r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
  if r1>r2 then Writeln('Ближе вторая точка')
  else
    if r1<r2 then Writeln('Ближе первая точка')
    else Writeln('Точки равноудалены')
end.

Тестовое решение:
Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка