Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Задание №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.