Помогите решить задачу на паскаль срочно очень нужно пожалуйста
Задача №111900. Загадочное уравнение
Маленький Вася очень любит уравнения. Однажды ему на глаза попалось уравнение x+y+xy=n
. Вася захотел узнать количество пар целых неотрицательных чисел x и y
, которые являются решениями этого уравнения.
Так как Вася еще маленький, то он попросил вас посчитать это количество.
Входные данные
В единственной строке входного файла дано число n
(0≤n≤109
).
Выходные данные
В единственную строку выходного файла выведите ответ на задачу.
Пояснения к примеру
Ниже перечислены все решения уравнения x+y+xy=5
1. x=0
, y=5
2. x=1
, y=2
3. x=2
, y=1
4. x=5
, y=0
Примеры
Входные данные
5
Выходные данные
4
Входные данные
8
Выходные данные
3
program equation; var x, z, m, n: integer;
y: real; begin write('n » '); readln(n);
m := 0; for x := - n - 2 to n do
if x = -1 then continue else begin
y := (n - x) / (x + 1); z := trunc(y);
if y = z then begin m := m + 1;
writeln(m:2, '. x =',x:5, ', y =', z:5)
end end end.