Паскаль: Вывести название месяца и время года по введенному числу (Можно через if или...

Question

Паскаль:
Вывести название месяца и время года по введенному числу
(Можно через if или case)

Comments

Вводится номер месяца ?

---

srzontmp, да

Answer 1

Var mes: array[1..12] of string = ('январь','февраль','март', 'апрель',
                        'май','июнь','июль','август',
                        'сентябрь','октябрь','ноябрь','декабрь');
    vr: array[0..3] of string = ('зима','весна','лето','осень');
    n: integer;
begin
  write('месяц: ');  readln(n);
  write(mes[n]);
  n:=n mod 12;
  write('  ',vr[n div 3]);
end.

месяц: 7
июль  лето

месяц: 12
декабрь  зима