Question

По числу и номеру месяца вывести время года и знак задиака информатика плиз срочно

Answer 1

PascalABC

var
   a,b:integer;
begin
   readln(a,b);
   case b of
     1 : if a <= 19 then writeln('Зима. Козерог.') else writeln('Зима. Водолей.');
     2 : if a <= 18 then writeln('Зима. Водолей.') else writeln('Зима. Рыбы.');
     3 : if a <= 20 then writeln('Весна. Рыбы.') else writeln('Весна. Овен.');
     4 : if a <= 19 then writeln('Весна. Овен.') else writeln('Весна. Телец.');
     5 : if a <= 20 then writeln('Весна. Телец.') else writeln('Весна. Близнецы.');
     6 : if a <= 20 then writeln('Лето. Близнецы.') else writeln('Лето. Рак.');
     7 : if a <= 22 then writeln('Лето. Рак.') else writeln('Лето. Лев.');
     8 : if a <= 22 then writeln('Лето. Лев.') else writeln('Лето. Дева.');
     9 : if a <= 22 then writeln('Осень. Дева.') else writeln('Осень. Весы.');
    10 : if a <= 22 then writeln('Осень. Весы.') else writeln('Осень. Скорпион.');
    11 : if a <= 21 then writeln('Осень. Скорпион.') else writeln('Осень. Стрелец.');
    12 : if a <= 21 then writeln('Зима. Стрелец.') else writeln('Зима. Козерог.');
   end;
end.