79. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

80. Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.

81. Составить программу, которая выводит слово «ПРИВЕТ», если введена 1 и слово «ПОКА», если введена 2.

82. Составить программу, которая определяет является ли прямоугольник со сторонами А и В квадратом.

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

Введите первое число: 23
Введите второе число: 44
Наибольшее число: 44

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

Введите первое число: 23
Введите второе число: 44
Введите третье число: 44
Второе и третье числа равны
Наибольшее число: 44

85. Написать программу, проверяющую, принадлежит ли число, введенное с клавиатуры интервалу (0,100). Ниже приведен рекомендуемый вид экрана во время выполнения программы.

Введите число: 33
Число 33 принадлежит интервалу (0-100)

86. Написать программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (m, n). Числа m и n вводятся пользователем с клавиатуры. Программа должна проверять правильность ввода значений m и n (m

Введите число: 33
Введите концы отрезка: 10 20
Число 33 не принадлежит интервалу (10-20)

87. Написать программу вычисления площади кольца. Программа должна проверять правильность исходных данных. Ниже приведен рекомендуемый вид экрана во время выполнения программы.

Введите исходные данные:
Радиус кольца: 10.5
Радиус отверстия: 20
Ошибка!
Радиус кольца не может быть меньше радиуса отверстия.

88. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 5% предоставляется, если сумма покупки больше 1000 руб., в 10% – если сумма больше 4000 руб. Ниже приведен рекомендуемый вид экрана во время выполнения программы.

Стоимость покупки с учетом скидки:
Введите сумму покупки: 4001
Вам предоставляется скидка 10%
Сумма с учетом скидки: 3600.9 руб.

89. Написать программу, определяющую, является ли введенное целое число четным. Ниже приведен рекомендуемый вид экрана во время выполнения программы.

Введите целое число: 77
Число 77 нечетное.

90. Дано целое число, лежащее в диапазоне 1–999. Вывести его строку-описание вида «четное двузначное число», «нечетное трехзначное число» и т. д.

91. Вывести на экран номер четверти, которой принадлежит точка с координатами (x,y), при условии, что x и y отличны от 0. Ниже приведен рекомендуемый вид экрана во время выполнения программы.

Введите координату X: 10
Введите координату Y: 34
Точка с координатами 10,34 принадлежит первой четверти

92. Вычислить значение функции:

y=x-12, при x>0
y=5, при x=0
y=3*x, при x<0

Ниже приведен рекомендуемый вид экрана во время выполнения программы.

Введите x: -23
При X равном -23 значение функции равно:-69

93. Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения:

94. Написать программу, которая выполняет проверку знания умножения двух однозначных чисел. Выбор чисел задается случайным образом. Программа выводит сообщение «Правильно», «Вы ошиблись» и правильный результат. Ниже приведен рекомендуемый вид экрана во время выполнения программы.

Сколько будет 7x8?
Введите ответ: 63
Вы ошиблись. 7x8=56.

Замечание. Для решения задачи необходимо использовать  Randomize и  Random(x).

Пример:

Randomize ; инициализация генератора случайных чисел.
x:= Random(11); x присваивается случайное число из диапазона от 0 до 10.