Нельзя преобразовать тип boolean к integer как исправить

В городе, в котором живут друзья Андрей и Борис, метро состоит из единственной кольцевой линии, вдоль которой на равном расстоянии друг от друга расположены n станций, пронумерованных от 1 до n. Участок линии метро между двумя соседними станциями называется перегоном.

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

Друзья заметили, что выполняется следующее условие: если загадать некоторую станцию X и выписать для нее два числа: Da — расстояние от станции, на которой живет Андрей, до станции X и Db — расстояние от станции, на которой живет Борис, до станции X, то полученная пара чисел [Da, Db] будет однозначно задавать станцию X.

Например, если n = 4, Андрей живет на станции 1, а Борис живет на станции 2, то станция 1 задается парой [0, 1], станция 2 — парой [1, 0], станция 3 — парой [2, 1] и станция 4 — парой [1, 2].

Их одноклассник Сергей живет в соседнем городе и не знает, на каких станциях живут Андрей и Борис. Чтобы найти друзей, он заинтересовался, сколько существует вариантов пар станций A, B, таких что если Андрей живет на станции A, а Борис — на станции B, то выполняется описанное выше условие.

Требуется написать программу, которая по числу станций n на кольцевой линии определяет искомое количество вариантов.

Входные данные
Первая строка входного файла содержит одно целое число n (3 ≤ n ≤ 40 000).

Выходные данные
Выходной файл должен содержать одно число — искомое количество вариантов.

Пояснения к примерам
В первом примере подходят следующие варианты:
* Андрей живет на станции 1, а Борис на станции 2;
* Андрей живет на станции 1, а Борис на станции 4;
* Андрей живет на станции 2, а Борис на станции 1;
* Андрей живет на станции 2, а Борис на станции 3;
* Андрей живет на станции 3, а Борис на станции 2;
* Андрей живет на станции 3, а Борис на станции 4;
* Андрей живет на станции 4, а Борис на станции 1;
* Андрей живет на станции 4, а Борис на станции 3.

Примеры
входные данные
4
выходные данные
8
входные данные
5
выходные данные
20

Условие задачи

The error means exactly what it says — you’re trying to assign a boolean value to an integer, which doesn’t make sense. What’s the integer value of true? That’s like asking «what variety of apple is this orange?» However, you have other bugs as well — see my comments below.

double int dFirst;

There’s no such thing as «double int.» A double is a real number and an int is an integer, and obviously a number can’t be both an integer and a real number.

    int iSecond;
    int iThird;

    Console.WriteLine("Enter a number between 1 and 10: ");
    dFirst = Convert.ToInt32(Console.ReadLine());

This’ll cause the program to crash if they enter something that’s not a number. It also doesn’t check to make sure that the user entered something between 1 and 10. Try something like the following:

        int intResult;
        // Prompt the user for an input until they enter a number between 1 - 10
        while (!int.TryParse(Console.ReadLine(), out intResult) || intResult < 1 || intResult > 10)
        {
            Console.WriteLine("Not a valid int - try again");
        }

The following code has the same exact problem:

    Console.WriteLine("Enter another number between 1 and 10: ");
    iSecond = Convert.ToInt32(Console.ReadLine());

    if (dFirst > iSecond)
    {
        Console.WriteLine("The first number is bigger than the second one you entered.");
    }
    else if (iSecond >= dFirst)
    {
        Console.WriteLine("These numbers are equal");

No, not necessarily — iSecond could be greater than dFirst. I assume you meant == here.

    }
    else (iSecond >= dFirst)

This should either be «else if» or simply «else.» In this case, you can just do «else» — if first isn’t greater than second and they’re not equal, then obviously second has to be larger. Also, this condition is exactly the same as the previous condition, so there’s absolutely no way that this condition can ever be met. Consider the following:

if (someCondition) {
   // ...
 }
// The following condition quite literally means "if not someCondition and someCondition," so obviously this couldn't possibly run.
else if (someCondition) { 
    // ...
 }

Recall that «else if» means «if the previous conditions are false and the conditions I specify here are true.»

            {
        iThird = dFirst <= iSecond;

This is what’s causing the error. I assume you meant something kind of like:

iThird = dFirst <= iSecond ? iSecond : dFirst;

This will assign the larger number to iThird, but you can make it whatever you want.

        Console.WriteLine("The number is: " + iThird);

        Console.WriteLine();
        Console.WriteLine("Press any key to close.");
        Console.ReadKey();

    }

Неописанная переменная

begin
  S := 1; // Неизвестное имя S
end.

Все используемые переменные должны быть предварительно описаны с помощью ключевого слова var (внутри блока begin/end или, что обычно хуже, в разделе описаний вначале программы).

Отсутствующая ;

begin
  var S: integer 
  S := 1;         // Компилятор здесь скажет: Ожидалась ; — имеется ввиду предыдущая строка!
end.

begin
  var S := 1 
  S := S + 1  // Аналогично: проблема на предыдущей строке, а на текущей нет, потому что после неё идёт end.
end.

Очень частая ошибка у начинающих. Курсор, как правило, позиционируется в начале следующей строки.

Несовместимость типов при присваивании

begin
  var S: integer := 1.3; // Нельзя преобразовать тип real к integer
end.

Безболезненно можно присваивать только данные одного типа. Если данные — разных типов, то в редких случаях можно преобразовать данные одного типа в данные другого. Например, целое можно преобразовать в вещественное, а символ — в строку. Обратные преобразования не допускаются.

Чтобы не ошибаться в подобных простых случаях в Паскале есть следующая краткая форма объявления и инициализации переменной:

begin
  var S := 1.3; // Тип real будет выведен компилятором автоматически
end.

Отсутствие закрывающего апострофа литеральной строки

begin
  var x := 2;   // x получает тип integer
  var y := 3;   // y получает тип integer
  writeln('Результат сложения равен =, x + y); // Не хватает закрывающего апострофа
end.

Закрыть апостроф надо на той же строке, где расположен открывающий апостроф

Ошибки расстановки запятых и апострофов при выводе строк и выражений

begin
  var x := 2;   // x получает тип integer
  var y := 3;   // y получает тип integer
  writeln(x, '+,' y, '=', x+y); // Неверная расстановка запятых и апострофов
end.

Слишком много запятых и апострофов рядом, потому начинающие часто путаются 
Надо уяснить правила:

• запятые разделяют разные элементы вывода
• все, что находится в апострофах, будет выведено на экран без изменений

Ошибка ввода

begin
  var x: integer;
  read(x); // введите блаблабла и посмотрите, что получится
end.

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

Аналогичный фрагмент в более современном и предпочтительном синтаксисе:

begin
  var x := ReadInteger;
end.

Ошибка неинициализированной переменной

begin
  var x: integer;
  // Забыли инициализировать или ввести x
  var r := x * x;  // r получает тип integer
  writeln('Квадрат числа ', x, ' = ', r);
end.

Перед использованием любую переменную надо ввести или присвоить ей начальное значение. Это действие называется инициализацией переменной.

Деление на 0

begin
  var x := 0;
  var c := 666 div x; // Здесь происходит деление на 0
end.

Если во время выполнения программа выполнит деление на 0, то она завершится с ошибкой.

Корень из отрицательного числа

begin
  writeln(sqrt(-1)); // Корень из отрицательного числа 
end.

В обычном Паскале возникает ошибка времени выполнения.
В PascalABC.NET выводится NaN — Not a Number

Ссылки

• Программы для начинающих
• Сайт PascalABC.NET: Программы и алгоритмы для начинающих