Ответы на вопрос:
Var n,d: integer; begin write('введите месяц : '); readln(n); write('введите день : '); readln(d); n: =n mod 12; case n mod 12 of 1: if d< =20 then writeln('козерок') else writeln('водолей'); 2: if d< =21 then writeln('водолей') else writeln('рыба'); 3: if d< =21 then writeln('рыба') else writeln('овен'); 4: if d< =21 then writeln('овен') else writeln('телец'); 5: if d< =21 then writeln('телец') else writeln('близницы'); 6: if d< =22 then writeln('близницы') else writeln('рак'); 7: if d< =23 then writeln('рак') else writeln('лев'); 8: if d< =24 then writeln('лев') else writeln('дева'); 9: if d< =24 then writeln('дева') else writeln('весы'); 10: if d< =24 then writeln('весы') else writeln('скорпион'); 11: if d< =23 then writeln('скорпион') else writeln('стрелец'); 12: if d< =22 then writeln('стрелец') else writeln('козерок'); end; end. //без if вряд ли удаться обойтись(+ я не учитывал високосный год и кратный 100 и 400)
Популярно: Информатика
-
про78301.01.2022 00:47
-
коля82729.01.2023 05:44
-
antarxanoff200128.12.2022 17:14
-
marina0203200612.10.2021 17:16
-
timamirzoev07.12.2020 05:23
-
PEWALWIK24.09.2020 08:32
-
epicrare1506.03.2023 13:16
-
bbll199824.05.2023 22:33
-
Ivan856IgR14.02.2020 17:14
-
kadalsu418.07.2020 23:59