Please информатика спасибо огромное

Question

Please информатика спасибо огромное

---

Answer 1

PascalABC.NET 3.2:

begin

 case ReadInteger('Введите целое число: ') of

   1: write('Январь');

   2: write('Февраль');

   3: write('Март');

   4: write('Апрель');

   5: write('Май');

   6: write('Июнь');

   7: write('Июль');

   8: write('Август');

   9: write('Сентябрь');

   10: write('Октябрь');

   11: write('Ноябрь');

   12: write('Декабрь');

 else write('Неверный номер');

 end

end.

Подробнее - на Znanija.com - znanija.com/task/4523480#readmore