Вывести все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел
Категория: Delphi/Pascal
2011-12-23 16:19:19
Даны два целых числа A и B.
Даны два целых числа: D (день) и M (месяц), определяющие правильную дату. Вывести знак Зодиака, соответствующий этой дате
Категория: Delphi/Pascal
2011-12-21 19:51:46
Даны два целых числа: D (день) и M (месяц), определяющие правильную дату. Вывести знак Зодиака, соответствующий этой дате: «Водолей» (20.1–18.2), «Рыбы» (19.2–20.3), «Овен» (21.3–19.4), «Телец» (20.4–20.5), «Близнецы» (21.5–21.6), «Рак» (22.6–22.7), «Лев» (23.7–22.8), «Дева» (23.8–22.9), «Весы» (23.9–22.10), «Скорпион» (23.10–22.11), «Стрелец» (23.11–21.12), «Козерог» (22.12–19.1)
По номеру года восточного календаря определить его название
Категория: Delphi/Pascal
2011-12-21 19:50:24
В восточном календаре принят 60-летний цикл, состоящий из 12-летних подциклов, обозначаемых названиями цвета: зеленый, красный, желтый, белый и черный. В каждом подцикле годы носят названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. По номеру года определить его название, если 1984 год — начало цикла: «год зеленой крысы»
Дано целое число в диапазоне 100–999. Вывести строку-описание данного числа, например: 256 — «двести пятьдесят шесть», 814 — «восемьсот четырнадцать»
Категория: Delphi/Pascal
2011-12-21 19:48:52
Дано целое число в диапазоне 10–40, определяющее количество учебных заданий по некоторой теме. Вывести строку-описание указанного количества заданий, обеспечив правильное согласование числа со словами «учебное задание»
Категория: Delphi/Pascal
2011-12-21 19:47:54
например: 18 — «восемнадцать учебных заданий», 23 — «двадцать три учебных задания», 31 — «тридцать одно учебное задание»
Дано целое число в диапазоне 20–69, определяющее возраст (в годах). Вывести строку-описание указанного возраста, обеспечив правильное согласование числа со словом «год»
Категория: Delphi/Pascal
2011-12-21 19:46:27
например: 20 — «двадцать лет», 32 — «тридцать два года», 41 — «сорок один год»
Даны два целых числа: N — достоинство (6 <= N <= 14) и M — масть карты (1 <= M <= 4). Вывести название соответствующей карты вида «шестерка бубен», «дама червей», «туз треф» и т. п.
Категория: Delphi/Pascal
2011-12-21 19:44:45
Мастям игральных карт присвоены порядковые номера:
1 — пики, 2 — трефы, 3 — бубны, 4 — червы.
Достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз.
1 — пики, 2 — трефы, 3 — бубны, 4 — червы.
Достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз.
Дан одномерный массив A длинной N. Определить первый максимальный элемент массива
Категория: Delphi/Pascal
2011-12-21 19:43:51
Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника
Категория: Delphi/Pascal
2011-12-21 19:42:37
Элементы равностороннего треугольника пронумерованы следующим образом:
1 — сторона a, 2 — радиус R1 вписанной окружности (R1 = a*sqrt(3)/6), 3 — радиус R2 описанной окружности (R2 = 2*R1), 4 — площадь S = a^2 * sqrt(3)/4.
Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника (в том же порядке)
1 — сторона a, 2 — радиус R1 вписанной окружности (R1 = a*sqrt(3)/6), 3 — радиус R2 описанной окружности (R2 = 2*R1), 4 — площадь S = a^2 * sqrt(3)/4.
Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника (в том же порядке)