Условный оператор

If1.^{[Pascal] [C#] [VB.NET]} Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

If2.^{[Pascal] [C#] [VB.NET]} Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

If3.^{[Pascal] [C#] [VB.NET]} Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

If4°.^{[Pascal] [C#] [VB.NET]} Даны три целых числа. Найти количество положительных чисел в исходном наборе.

If5.^{[Pascal] [C#] [VB.NET]} Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.

If6°.^{[Pascal] [C#] [VB.NET]} Даны два числа. Вывести большее из них.

If7.^{[Pascal] [C#] [VB.NET]} Даны два числа. Вывести порядковый номер меньшего из них.

If8°.^{[Pascal] [C#] [VB.NET]} Даны два числа. Вывести вначале большее, а затем меньшее из них.

If9.^{[Pascal] [C#] [VB.NET]} Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.

If10.^{[Pascal] [C#] [VB.NET]} Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

If11.^{[Pascal] [C#] [VB.NET]} Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

If12°.^{[Pascal] [C#] [VB.NET]} Даны три числа. Найти наименьшее из них.

If13.^{[Pascal] [C#] [VB.NET]} Даны три числа. Найти среднее из них (т. е. число, расположенное между наименьшим и наибольшим).

If14.^{[Pascal] [C#] [VB.NET]} Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

If15.^{[Pascal] [C#] [VB.NET]} Даны три числа. Найти сумму двух наибольших из них.

If16.^{[Pascal] [C#] [VB.NET]} Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C.

If17.^{[Pascal] [C#] [VB.NET]} Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C.

If18.^{[Pascal] [C#] [VB.NET]} Даны три целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных.

If19.^{[Pascal] [C#] [VB.NET]} Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Определить порядковый номер числа, отличного от остальных.

If20.^{[Pascal] [C#] [VB.NET]} На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C) расположена ближе к A, и вывести эту точку и ее расстояние от точки A.

If21.^{[Pascal] [C#] [VB.NET]} Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то вывести соответственно 1 или 2. Если точка не лежит на координатных осях, то вывести 3.

If22°.^{[Pascal] [C#] [VB.NET]} Даны координаты точки, не лежащей на координатных осях OX и OY. Определить номер координатной четверти, в которой находится данная точка.

If23.^{[Pascal] [C#] [VB.NET]} Даны целочисленные координаты трех вершин прямоугольника, стороны которого параллельны координатным осям. Найти координаты его четвертой вершины.

If24.^{[Pascal] [C#] [VB.NET]} Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения:

If25.^{[Pascal] [C#] [VB.NET]} Для данного целого x найти значение следующей функции f, принимающей значения целого типа:

If26°.^{[Pascal] [C#] [VB.NET]} Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения:

If27.^{[Pascal] [C#] [VB.NET]} Для данного вещественного x найти значение следующей функции f, принимающей значения целого типа:

If28.^{[Pascal] [C#] [VB.NET]} Дан номер года (положительное целое число). Определить количество дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются).

If29.^{[Pascal] [C#] [VB.NET]} Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число», «положительное нечетное число» и т. д.

If30.^{[Pascal] [C#] [VB.NET]} Дано целое число, лежащее в диапазоне 1–999. Вывести его строку-описание вида «четное двузначное число», «нечетное трехзначное число» и т. д.