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

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

Задать свой вопрос
Брильков Тимур
Pascal?
1 ответ
PascalABC

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


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт