Дан год. Вывести на экран на экран название животного, символизирующего этот год по восточному календарю (cock, dog, pig, rat, bull, tiger, rabbit,
10-11 класс
|
dragon, snake, horse, sheep, monkey).
Формат входных данных:
Входной файл содержит натуральное число
var
x,y:integer;
a:array [1..12] of string;
begin
a[1]:=cock;
..
a[12]:=monkey;
read(x);
y:=(abs(2016-x) )mod 12;
write(a[y]);
end.
Вроде должно работать. Проверить не могу - сижу с телефона
Другие вопросы из категории
системе счисления с основанием 13 заканчивается на 3.Чему равно N?Запишите ответ в десятичной системе счисления.
массива q(n) и r(n). Найти сумму элементов массива q; произведение элементов r
и создать массив y(n) каждый элемент
которого равен: y
Читайте также
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
Даны два символа (латинские буквы). Вывести их на экран в порядке возрастания по алфавиту.
массиве записей и вывести на экран названия моделей красного цвета, випускалиcя в 2000 году.
P.s Помогите пожалуйста, заране огромное спасибо.
вывести полученную матрицу на экран.