Сделать программы ** Паскале. ПОМОГИТЕ! ПОЖАЛУЙСТА! 1. Найти наибольшее из двух чисел,...

Question

Сделать программы на Паскале. ПОМОГИТЕ! ПОЖАЛУЙСТА!
1. Найти наибольшее из двух чисел, используя конструкцию case.
2. Используя, оператор case, решить задачу. С клавиатуры ввести год рождения, а выдается в год кого вы родились. (Год лошади, свиньи и т.д.)

Answer 1

Задание №1
var
  a, b, n: integer;

begin
  readln(a, b);
  n := a - b;
  case n of
    1..65536: writeln('a>b');
    0: writeln('a=b');
  else writeln( 'a  end;
end.



Задание №2

var  a: integer;
begin
    writeln('Введите год рождения'); readln(a);
    write('Вы родились в ');
    case a mod 12 of
        0: writeln('год Обезьяны.');
        1: writeln('год Петуха.');
        2: writeln('год Собаки.');
        3: writeln('год Свиньи.');
        4: writeln('год Крысы.');
        5: writeln('год Быка.');
        6: writeln('год Тигра.');
        7: writeln('год Кролика.');
        8: writeln('год Дракона.');
        9: writeln('год Змеи.');
        10: writeln('год Лошади.');
        11: writeln('год Козы.');
  end;
end.