Задачи по Pascal

[Darina18]

1. Точка на плоскости задана целыми координатами. Изменить соответствующую координату точки на единицу в зависимости от
нажатия клавиши, что символизирует направление движения точки: L (left) - слева, R (right) - справа, U (up) - вверх,
D (down) - вниз. Например, при нажатии клавиши L абсциссу Х нужно уменьшить на 1.

2. Для натурального числа K <100 вывести фразу "K лет". Учесть, что в зависимости от значения числа K слово
"Лет" нужно заменить или словом "год" или словом "года".

3. Определить день недели по указанной датой.

4. Запрограммировать проверку тестового задания на умножение натуральных чисел в пределах сотни. Задача подать в
форме выбора одного из нескольких предложенных вариантов ответов. Для каждого из вариантов предусмотреть
вывод на экран соответствующего объяснения.

5. Голландский медик Рейнхолд Лаесле вычислил индекс массы тела человека, который позволяет объективно определить,
нужно похудеть. Индекс вычисляется так: вес тела (в килограммах) разделить на рост (в метрах) в квадрате. Если
результат меньше 20 - недостаточный вес. От 20 до 25 - нормальный вес. От 25 до 30 - избыточный вес. От 30 до 40 -
немедленно принять меры для похудения. Написать программу для оценки весовой характеристики человека.

6. За малой украинской буквой записать соответствующую большую.

8. В старояпонском календаре был принят 60-летний цикл, состоящий из пяти 12-летних подциклов, которые
обозначались названиями цветов: зеленый, красный, желтый, белый и черный. Годы каждого подцикла имели названия
животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи (1984 - год зеленой
крысы был началом нового цикла). Написать программу, по которой за введенным номером года нашей эры определяется
название по старояпонському календарю.

9. Записать целое число N (N <13) римской нумерацией.

10. Определить тип введенного числа: ShortInt, Byte, Integer, Word, LongInt, Real.

[Stilet]

6. За малой украинской буквой записать соответствующую большую.

Буква А - это чьего языка буква?