Question

Дано n пар чисел xi, yi. подсчитайте количество таких пар, что xi^2 + yi^3 принадлежит диапазону от l до r включительно. примечание: здесь ^ - это операция возведения в степень. то есть, xi^2 = xi*xi yi^3 = yi*yi*yi формат ввода: n – количество пар чисел (n < = 12) l r - левая и правая границы диапазона x1 y1 – первая пара чисел x2 y2 - вторая пара чисел xn yn – n-ая пара чисел пример ввода: 3 5 30 1 1 2 1 1 3 формат вывода: k - количество пар чисел пример вывода: 2

Answer 1

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var n:=ReadInteger;
  var L,R,x,y:integer;
  Read(L,R);
  var k:=0;
  for var i:=1 to n do begin
    Read(x,y);
    if x*x+y*y*y in [L..R] then Inc(k)
    end;
  Writeln(k)
end.

Тестовое решение:
3
5 30
1 1
2 1
1 3
2