Замечание: в следующих упражнениях
исходные данные следует присваивать или использовать
константы, ввод с клавиатуры НЕ нужен.
1. Программа должна сообщить, является ли первое
число кратным второму.
Вывести a, b, ответ.
Пример.
if (a mod b) = 0 then
Write('Число ', a, ' кратно ', b)
else
Write('Число ', a, ' НЕ кратно ', b);
2. Введено число. Определить, является оно
отрицательным, нулем или положительным. В первом
случае возвести число в квадрат, в последнем -
умножить число на заданный коэффициент.
Вывести x, ответ.
3. Найти наибольшее и наименьшее числа из трех заданных.
Вывести a, b, c, min, max.
4. Принадлежит ли случайно выбранное из отрезка [a, b]
число отрезку [c, d].
Вывести a, b, c, d, x, ответ.
Число x из отрезка [a, b] (не) принадлежит
отрезку [c, d].
5. Ввести год и месяц, определить, сколько дней в месяце.
Учитывать високосные годы. Решить задачу тремя способами:
1) с помощью оператора ветвления, 2) с использованием
типа множество, 3) с использованием оператора выбора case.
6. Для пар переменных типов byte, ShortInt, integer, word
выполнить сложение введенных с клавиатуры чисел.
Если сумма превышает область допустимых значений,
то вывести предупреждение об этом.