По заданному номеру месяца вывести ** печать название месяца года Если число=12,1,2 то...

Question

По заданному номеру месяца вывести на печать название месяца года
Если число=12,1,2 то это зима.3-5 весна. 6-8 лето. 9-11 осень. Диапазон 1-12

Comments

написать на паскале?

---

Да

Answer 1

Var a:integer;
begin
readln(a);
if (a=1) or (a=2) or (a=12) then writeln('зима');
if (a=3) or (a=4) or (a=5) then writeln('весна');
if (a=6) or (a=7) or (a=8) then writeln('лето');
if (a=9) or (a=10) or (a=11) then writeln('осень');
end.

Answer 2

Файл program1.pas в нём создана программа для вычисления названия месяца, при вводе. Сами разберетесь, программа работает.