Дан год. Вывести на экран название животного, символизирующего заданный
10-11 класс
|
год по восточному календарю. Выполнить надо желательно с оператором case.
var
y:integer;
s:string;
begin
Write('Введите год (800-3000): ');
Readln(y);
y:=(y-800) mod 12;
case y of
0:s:='Дракон';
1:s:='Змея';
2:s:='Лошадь';
3:s:='Коза (овца)';
4:s:='Обезьяна';
5:s:='Петух';
6:s:='Собака';
7:s:='Свинья (кабан)';
8:s:='Крыса (мышь)';
9:s:='Бык (корова)';
10:s:='Тигр';
11:s:='Кролик (заяц, кот)';
end;
Writeln(s)
end.
Тестовое решение:
Введите год (800-3000): 2031
Свинья (кабан)
Другие вопросы из категории
хотя бы идею подскажите)
элементы получившегося массива; 2) найти минимальный и максимальный элементы; 3) вывести на экран элементы массива в обратном порядке.
Читайте также
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
Даны два символа (латинские буквы). Вывести их на экран в порядке возрастания по алфавиту.
массиве записей и вывести на экран названия моделей красного цвета, випускалиcя в 2000 году.
P.s Помогите пожалуйста, заране огромное спасибо.
вывести полученную матрицу на экран.