Условный оператор.Оператор выбора.

[nurg]

Прошу помощи в решении данных задач
1.Дано трехзначное число. Определить какая из его цифр является средним числом (сред-ним будем называть число, которое больше минимального, но меньше максимального).
2.В китайском календаре годы носят название животных: Змеи, Лошади, Овцы, Обезьяны, Курицы, Собаки, Свиньи, Крысы, Коровы, Тигра, Зайца и Дракона. Каждые 12 лет цикл начинается заново. Считая, что 2000 год был годом Дракона, написать программу, которая вводит номер года от 2000 до 2012 и выводит его название по ки-тайскому календарю.

[Poma][a]

Наработки есть? Или хотя бы идея как решать? Вобщем хоть что-нибудь....

[Begin]

1. Что такое минимальное и максимальное число?
2.

program years;
var i:integer;
begin
for i:=2000 to 2012 do
case i mod 12 of
0:writeln(i, ' - Год Обезьяны');
1:writeln(i, ' - Год Курицы');
2:writeln(i, ' - Год Собаки');
3:writeln(i, ' - Год Свиньи');
4:writeln(i, ' - Год Крысы');
5:writeln(i, ' - Год Коровы');
6:writeln(i, ' - Год Тигра');
7:writeln(i, ' - Год Зайца');
8:writeln(i, ' - Год  Дракона');
9:writeln(i, ' - Год Змеи');
10:writeln(i, ' - Год Лошади');
11:writeln(i, ' - Год Овцы');
end;
end.

[Poma][a]

Что такое минимальное и максимальное число?

Ввели 123 1 - мин, 3 - макс, 2 - средн

[Olga-Colibri]

1.

Var a, a1, a2, a3: integer;
Begin
Write ('Введите трехзначное число');
Readln (a);
a1:=a div 100;
a2:=a mod 100;
a2:=a2 div 10;
a3:=a mod 10;
If (a2>a1) and (a1>a3) or (a3>a1) and (a1>a2) then writeln ('Среднее число', a1);
If (a1>a2) and (a2>a3) or (a3>a2) and (a2>a1)  then writeln ('Среднее число', a2); 
If (a1>a3) and (a3>a2) or (a2>a3) and (a3>a1)  then writeln ('Среднее число', a3);
If (a1=a2) or (a1=a3) or (a2=a3) then writeln ('Определить среднюю цифру нельзя т.к. в числе есть одинаковые цифры');
Readln
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Poma][a]

Оль, код на данном ресурсе для читабельности выделяется тегом [CODE] (кнопочка с #)

[nurg]

Большое спасибо!!!