Составить программу, определяющую животное, соответствующее году по китайскому гороскопу
217
275
Ответы на вопрос:
Var a, b, c, i: integer; begin read (a); a: =a-4; if a = -3 then write ('петух'); if a = -2 then write ('собака'); if a = -1 then write ('свинья '); if a mod 12 = 0 then writeln ('крыса'); if a mod 12 = 1 then writeln ('бык'); if a mod 12 = 2 then writeln ('тигр'); if a mod 12 = 3 then writeln ('кролик'); if a mod 12 = 4 then writeln ('дракон'); if a mod 12 = 5 then writeln ('змея'); if a mod 12 = 6 then writeln ('лошадь'); if a mod 12 = 7 then writeln ('овца'); if a mod 12 = 8 then writeln ('обезьяна'); if a mod 12 = 9 then writeln ('петух'); if a mod 12 = 10 then writeln ('собака'); if a mod 12 = 11 then writeln ('свинья'); end.
Program god_japan; var y, y1: integer; color : integer; beast : integer; begin write('введите год'); readln(year); year1 : = ((year - 1984) mod 60 + 60) mod 60; beast : = year1 mod 12; color : = (year1 div 12) mod 5; write(year, ' - год '); if beast in [2, 3, 4] then case color of 0: write('зеленого'); 1: write('красного'); 2: write('желтого'); 3: write('белого'); 4: write('черного'); end else case color of 0: write('зеленой'); 1: write('красной'); 2: write('желтой'); 3: write('белой'); 4: write('черной'); end; write(' '); case beast of 0: write('крысы'); 1: write('коровы'); 2: write('тигра'); 3: write('зайца'); 4: write('дракона'); 5: write('змеи'); 6: write('лошади'); 7: write('овцы'); 8: write('обезьяны'); 9: write('курицы'); 10: write('собаки'); 11: write('свиньи'); end; writeln(); end.
Текст поместится на диск, так как 19.53 < 20
Объяснение:
1 символ = 1 байт
20000 символов = 20000 байт
20000 байт = 19.53 Кб
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
lenochkasadyho19.07.2022 20:57
-
Айхан111111111108.03.2021 06:04
-
belevich03119721.09.2020 08:22
-
devyticlassnicadf1703.08.2021 02:36
-
lariliv7530.08.2020 01:24
-
Denis193022.12.2022 23:41
-
olga03516.10.2021 06:59
-
djamilaalieva17.08.2021 09:27
-
Ники6716.05.2022 02:37
-
сархан200715.12.2020 12:02
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.